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AS YOU MAY ALREADY KNOW, THE COMMODORE 
64 HAS MANY UNIQUE CHARACTERS. NOT MANY 
PRINTERS CAN HANDLE THESE CHARACTERS, SO 
THEY USE SUBSTITUTE CHARACTERS. ALL OF 
THE LISTINGS IN THIS BOOK ARE DONE IN 
THIS WAY. 

BELOW IS A TABLE THAT CONVERTS PRINTED 
CHARACTERS TO COMMODORE 64 CHARACTERS. 
FOR EXAMPLE, IF YOU FOUND AN A IN A 
LISTING YOU WOULD TYPE A SHIFTED ’A’ ON 
YOUR COMPUTER. 

(SHIFT MEANS USE THE SHIFT KEY, 
COMMODORE MEANS USE THE COMMODORE KEY.) 
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HEXPERTY 


Bert Lives on a planet, ina galaxy far away. He has 
been captured by the evil witch Spotack, and has been 
forced to play on her '3-D Grid’. 


Bert has to try and change the top faces of the crosses 
to yellow. If he does this, he can escape. Spotack 
throws rubber balls down the grid to crush Bert. To make 
things even harder, her pet snake, Coiles, chases Bert 
around the grid. 


Bert has two disks on which he can jump to try and Lure 
young Coiles to death. Once all the faces have been 
painted yellow, Bert is forced to start all over again. 


Your controls: 


—- to move up/left 

to move down/right 
to move up/right 
to move down/Left 


=Z2AN DS 
{ 


t POKE29496, 196: POKE2941, 194: POKE29492,195 


*POKE2943, 194: POKE2944, 197 
2 FORX=194TO197 


3 FORY=9T063: READA: POKEX¥64+Y, A! NEXT: NEX 
= 

9 DIMS(21):LI=3 

19 PRINT"{CLR}"!POKES3289, 9: POKE532981,9 
11 INPUT"HOW MANY SCREENS"3RS 

12 IFRS>1@THENPRINT:PRINT"NOW COME ON, L 
ETS BE REASONABLE'":GOTO11 

13 IFRS<iTHENPRINT:PRINT"NOT MUCH OF A C 
HALLENGE!":GoTO11 

29 SR=9 

199 S=9: TR=9:RT=9:NM=9: GH=9: QwW=aG 

191 POKEV+16,@ 

195 DI(1)=9:DI(2)=@:FORTH=1T021:S(TH)=9: 
NEXT 


2968 CS="{BLUF ({CYNSC{RVS ON} {RVS OQFF{B 


LU} {€RVS ON}{CUR DN} {CUR L3{CUR L}{CUR L 
3{CUR L3{CYN} {CUR DN}{CUR L3{CUR L3¢ 
CUR L3?{CUR L}¢BLU} {CYN} {BLU} {CUR DN} 
{CUR L}{CUR L3}{CUR L}{CUR L} {LT BLU} ¢ 
BLU} (CUR DN}{CUR L3¢CUR L}{CUR L?{CUR L 
> {LT BLU} {BLU} {CUR DN}{CUR L3{CUR L3 
{CUR L}{CUR L}{RVS OFF}"+CHRS(223) 

265 C#=CH+"{RVS ONI{LT BLU} {BLUICRVS O 
FF} "+CHRS (169) 

219 DS=" {RVS ON}{CYN} {CUR DN3{CUR L3¢ 
CUR L3{CUR L} {CUR DN}{CUR L3{CUR L3¢ 
CUR L3{CUR L}{BLU} {CYN} {BLU} {CUR DN} 
{CUR L}{CUR L}{CUR L3{CUR L} {LT BLU} ¢ 
BLU} {CUR DN}{CUR L3{CUR L3{CUR L3{LT BL 
U} {CUR DN}{CUR L3{CUR L} " 

228 PRINT"{CLR}{CUR DN3 {CUR DN3{CUR DN¢ 
CUR DN}{CUR DN}{CUR DN3{CUR DN3<{CUR DN¢< 
CUR DN}{CUR DN}3{CUR DN}{CUR DN}{CUR DN} 
CUR DN}{CUR DN}{CUR DN}{CUR DN}{CUR DN}< 
CUR DN3{CUR DN}" 

2390 L&="{CUR UP}{CUR UP}{CUR UP}{CUR UP} 
{CUR UP}{CUR UP}{CUR UP}{CUR UP}{CUR L}" 
249 FS="{CUR UP}{CUR UP?" 

259 PRINTCSLSDSFSCSLSDSFSCSHLSDSFSCSELEDSF 
SCSBLSDSFSCH 

268 PRINT" {HOME}{CUR DN3{CUR DN3{CUR DN} 
{CUR DN}{CUR DN}{CUR DN}{CUR DN}{CUR DN} 
{CUR DN3}{CUR DN3{CUR DN" 

276 LS="{CUR UP}{CUR UP}{CUR UP?{CUR UP} 
{CUR UP}{RVS OFF} , 

286 PRINTSPC (4) DSLSDSLSDSLSDS © 

298 PRINT"{HOME}{CUR DN3{CUR DN3{CUR DN} 
{CUR DN}{CUR DN}{CUR DN}{CUR DN}<{CUR DN3 


380 PRINTSPC (9) DSLEDSLEDS 

316 PRINT"{HOME};{CUR DN3{CUR DN{CUR DN; 
{CUR DNS{CUR DN?" 

326 PRINTSPC(12) DSL&DS 

338 PRINT" CHOMES{CUR DN-C{CUR DN (CUR DN3 
"SPC (15) DS 

349 DIG="{GRNICIRVS ON} "+CHRS(169) +" "+C 
HRS(223)+"C{CUR DN{CUR L}{CUR LC{CUR Lif 
CUR L3"+CHRS (295) +CHRS (175) +CHRS(175) 


345 DIS=DIS+CHRS(296)+"{CUR DN} {CUR L3{C 
UR L3{CUR L3?{CUR L}{RVS OFF} "+CHRS(223) + 
"{£LT GRN}{RVS ON} {RVS OFF} {(GRN}"+CHRS ( 
169) 

359 PRINT" {HOME}{CUR DN}{CUR DN}{CUR DN} 
{CUR DN? {CUR DN}{CUR DN3{CUR DN3{CUR DN} 
{CUR DN3}{CUR DN} "DI 

369 PRINT"{HOME} {CUR DN}{CUR DN}<{CUR DN3 
{CUR DN3}{CUR DN}{CUR DN}{(CUR DN3{CUR DN} 
{CUR DN}{CUR DN}"SPC(28) DI 

1GBH REM HHXXKKKKHK HHH 

1919 REM MAIN ROUTINE 

LD2HA REM HRXKKKKHHK HHH 

1938 PRINT" {HOME}{CUR DN}{CUR DN}{RED}LI 
VES"LI 

1979 V=53248:POKEV+21,15 

1989 X=150!:Y=12G: A=15G! B=G@!: POKEV+39,11:P 
OKEV+49, 9: @=175!W=78! TS=1: POKEV+41,2 
1985 N=159:M=35: POKEV+42, 9: 2C=1:Z2V=1 
1999 POKEV, X:POKEV+1, Y: POKEV+2, A: POKEV+3 
, BIPOKEV+4, @: POKEV+5, W 

1991 POKEV+6,N!POKEV+7, mM 

1996 IFXZ>HSTHENHS=XZ 

1998 PRINT" {HOME} {PUR}SCORE"XZ:PRINTSPC ( 
25)"{CUR UP}{YEL}HIGH"HS 

1199 L=PEEK(V+3@) ANDI 

1191 IFDI>@THEN115¢ 

1192 GETAS 

1119 IFAS="A" THENY=Y-25: X=X-25! GOSUB9 199 
1120 IFAS="Z"THENY=Y+25! X=X+25 3 GOSUB919@ 
1139 IFAS="K"THENX=X+25: Y=Y-25: GOSUB919¢ 
1149 IFAS="M"THENY=Y+25: X=X-25: GOSUB9 199 
1158 IFX>255THENX=15! POKEV+16, 1 

1169 IFX<@ANDPEEK (V+16) =1 THENX=259: POKEV 
+16,9 

1178 IFDI(1)=@ANDX=5@ANDY=1290RDI1 >STHENG 
OSUBS5S9 

1171 IFDI (2) =@ANDX=259ANDY=1290RDI >STHEN 
GOSUBS599 

1172 IFDI (2) =GANDX=25@ANDY=1290RDI >@THEN 


OSUBSS9DG 
173 POKEV, X:POKEV+1, Y: GOSUB799¢ 


1179 IFSSFGTHENXZ=xX2t+56: IFKXZ>HSTHENHS=X2 
1175 PRINT" {HOME} CPUR}SCORE"XZ:PRINTSPC ( 


29) "(CUR UP? {YELSHIGH"HS 


1176 


1296 
13928 


1319 


IFS=21THENS196 

IF TS=1THEN149S 

REMHXXKXKXHKKH 

IFW=179ANDQ< SPORW=176HANDQ>259THENGO 


SUBSSSS 


1320 


IFW=149S5ANDQ<¢ 7SORW=1495ANDQ>225THENGO 


SUBSSIIG 


1332 


TFW=12GANDR<S 1PHORW=12GANDQ>296STHENG 


OSUBSSEIS 


1349 


IFW=9SANDQ< 1 250RW=9SSANDG?>17S5THENGOS 


UBSS99 


1359 


TFW=7GANDGX< 1SGORW=7GANDG>1LSSTHENGOS 


UBSSIDG 


1369 
1499 
1491 
1495 
1596 
15194 
13536 
13549 
1559 
1549 
157d 
1589 
15°9 
1699 
1619 
1629 
1636 
14649 
2906 


26G2 
2616 


IFW? 1 9S2THENGOSUBSSE9 
IFFL< SSTHEN1I559 


TFPEEK (V+16) =1 THEN4SS9S 


IFY >195THENS699 

IFAS =XANDB< =Y THENFL=4? GH= 1: GOTO299a 
IFA=>XANDB=>YTHENFL=1 : GOTO2899 
IFA=>XANDB< =Y THENFL=3: GH=1: GOTO2999 
IFAS =XANDB >=Y THENFL=2:! GH=1: GOTO2999 
IFRT< >STHEN1L 699 

IFQ@<=XANDB< =WTHENRT=4:! QW=1: GOTO2999 
IFQ=>XANDW=>YTHENRT=1 : QW=1: GOTO2992 
IFQ=>XANDW< =Y THENRT=3: QW=1!: GOTO296¢G 
IFQ<=XANDW >=Y THENRT=2! QW=1: GOTO2999 
IFTR< >STHEN2ZSGS 
IFN<=XANDM< =Y THENTR=4: NM=1: GOTO299¢ 
IFN=>XANDM=>YTHENTR=1:NM=1:GOTO2999¢ 
IFN=>XANDM<=Y THENTR=3:NM=1: GOTO2999 
IFN< =XANDM >=¥ THENTR=2: NM=1!:GOTO2996 
IFFL=9O0RZV=10RDI >STHENS9OE 
IFFL>1THEN29469 

IF GH=1 THENB=B-152 GH=2: GOSUB9258: GOT 


02956 

2926 IFGH=2THENA=A-16: B=B-39: GH=3: GOTO29 
3d 

2939 ITFGH=3THENA=A-169: B=B+19: GH=4: GOTO2¢ 
38 

2949 IFGH=4THENA=A-5: B=Bt16:FL=6:G=6:H=2 
> GH=9: GOSUB?Y259 | 

2956 POKEV+2, A: POKEV+t3, B: GOTO3S99E 


2069 IFFL>2THEN2Z15@ 

2678 IFGH=1THENB=B-15: GH=2: GOSUB925@: GOT 
02149 

2888 IFGH=2THENA=At1@: B=B-39:GH=3:G0TO21 
4g 

2998 IFGH=3THENA=At1@: B=B+19: GH=4: GoOTO21 
Ag 

2199 IFGH=4THENA=A+t5: B=B+19!FL=9: G=G:H=9 
*GH=9! GOSUB9259 

2149 POKEV+2,A:POKEV+3, B: GOTO399¢ 

2159 IFFL>3THEN222@ 

2168 IFGH=1THENA=A-19: B=B-5: GH=2? GOSUBS2 
59: GOTO220¢G 

2170 IFGH=2THENA=A-1@: B=Bt5S: GH=3: GOTO22@8 
g 

2189 IFGH=3THENA=A-2: B=B+12! GH=4!: GOTO22G 
g 

2199 IFGH=4THENB=B+13! A=A-3:FL=9! GH=9: G= 
G@:H=G: GOSUB9259 

2299 POKEV+2,A:POKEV+3,B 

2218 GOTO3999 

2228 IFFL< >4THENSOEE 

2221 IFGH=1THENA=A+t19: B=B-5!: GH=2: GOSUB92 
59: GOTO2399 

2239 IFGH=2THENA=A+t19: B=B+5! GH=3: GOTO239 
g 

2249 IFGH=3THENA=A+t2: B=B+12: GH=4: GOTO239 
g 

2259 IFGH=4THENA=A+3: B=B+13:FL=@: G=G:H=9 
: GH=9: GOSUB9259 

2388 POKEV+2,A!POKEV+3, B: GOTO399¢ 

3998 IFRT=9ORTS=1 THENS5SS@ 

3981 IFRT>1THEN3S@49 

3919 IFQW=1 THENW=W-15! @QW=2! GOSUB9259: GOT 
03959 

3929 IFQW=2THENG=Q-19: W=W-39: QW=3: GOTO39 
5a 

3938 IFQW=3THENG=Q-19:W=W+19! QW=4: GOTO39 
5a 

3849 IFQW=4THENG=Q-5: W=W+1G: QW=G:RT=G:G0 
SUB9259 

3959 POKEV+4, @!: POKEV+S, W: GOTO3599 

3969 IFRT>2THENS159 

3979 IF@W=1THENW=W-15! QW=2! GOSUB92598: GOT 


03149 

3939 IFQW=2THENG=Q+1902W=W-309:0QW=3:GOTO31 
46 

39G9G IFQW=S3THENG=01+10: W=Wt+19: QW=4: GOTOS31 
46 

S198 IFQW=4THENG@=GQ+t5: W=W+10: QW=O:RT=8: GO 
SUBY250 

319499 POKEV+t+4,Q@: POKEV+S, W: GOTO3596 

31590 IFRT>3THENS226 

3169 IFQW=1THENG@=Q@-19:W=W-5: QW=2: GOSUB?S2 
398: GOTO32066 

$176 IFQW=2THEN@=Q-19:W=Wt5!: QW=3: GOTO32¢9 
3] 

$189 ITFQW=3THENQ=Q-2: W=Wt12: QW=4: GOTO32¢ 
| 

S190 ITFQW=4THENW=Wt13: G=Q-3:RT=0: QW=90: G0 
SUBY255 

32908 POKEV+4,@: POKEVt+S, W 

32186 GOTO359¢9 

32298 IFRT< S4THENSS99 

3221 ITFQW=1THENG=Qt+16:W=W-S5: Q@W=2: GOSUBS2 
393 GOTO3369 

3239 ITFQW=2THENG=01t196:W=WtS: QW=3: GOTOS39 
@ 

S298 IFQOW=S3THENG@=Q+2: W=W+12: QW=4: GOTO3390 
4) 

32590 IFQW=4THEN@G@=Qt3:W=Wt1lS: RT=9: QW=9:G0 
SUBY259 

53990 POKEVt4,@: POKEVtS, W 

3598 IFTR=GORZC=10RDI >OTHENFISS 

$591 IFTR>1THEN3569 

3519 IFNM=1THENM=M-15:NM=2: GOSUB9S256:G0T 
03558 

3526 IFNM=2THENN=N-162: M=M-36:NM=3.GOTOS5 


van] 
35308 IFNM=S3THENN=N-196: M=M+16:NM=4: GOTOSS 


4] 

S340 IFQW=4THENN=N-52M=M+102:NM=8: TR=8: GO 
SUB9256 

3559 POKEV+6,N:POKEV+t+7, M: GOTO4969 

3569 IFTR>2THEN3S629 

3578 TFNM=1THENM=M-15:NM=2:2 GOSUB92598: GOT 
03619 | 

35890 IFNM=2THENN=N+192 M=M-39:NM=3:GOTO36 


1d | 

3598 TFNM=STHENN=N+19:M=M+192NM=4: GOTO36 
19 

3698 TFNM=4THENN=N+S: M=M+19:2NM=9: TR=G: GO 
SUBY25¢9 

5619 POKEV+6,N:POKEV+?7,M: GOTO4969 

3629 IFTR>STHENS699 

3630 IFNM=1 THENN=N-16:M=M-S: NM=2: GOSUB92 
398: GOTO367¢9 

364996 IFNM=2THENN=N-19:M=M+5: NM=3: GOTO367 


2] 

36598 IFNM=S3THENN=N-2: M=M+12°NM=4: GOTOS6/7 
@ 

3669 IFNM=4THENM=M+13:N=N-3: TR=9: NM=9: GO 
SUB9256 


3678 POKEV+6,N:POKEV+7,™ 

3686 GOTO49S9 

3699 IFTR< >4THENS SOG 

3798 IFNM=1 THENN=N+16:M=M-S:NM=2: GOSUB9S2 
39: GOTO374¢ 

37198 IFNM=2THENN=N+19: M=M+52 NM=3:G0TO0374 
5) 

3726 IFNM=S3THENN=N+22 M=M4+123 NM=4: GOTO374 
B 

3738 ITFNM=4THENN=N4+32M=M+13: TR=9:NM=6: G0 
SUB9259 

3748 POKEV+6,N:POKEV+7,M 

49690 POKEV, X:POKEVt1, YY: IFPEEK (Vt16) =1 THE 
N4946 

49638 L=PEEK (V+396) ANDI: IFL=1 THENGOSUBS399 
49446 IFTS=1 THENGOSUBS95¢ 

49590 IFZV=1 THENGOSUB?S59¢ 

4946496 IFZC=1THENGOSUB954¢9 

4999 GOTO199¢ 

SGGA REM KHKKHKHKHHKKH 

3918 REM SPRITE DATA 

5I2G REM KHKHKKHKHKHKKH 

3938 DATAS, 255,9,1,255,128,3,255,192,7,1 
27,224,14,127,249, 28,127, 248,56, 255, 252 

3949 DATA121, 255, 254, 254, 255, 255,255, 255 
,255525959, 200; 2905 295, Zod, 2555 2255 255, 255 
3959 DATA127, 255, 254,63, 255, 252,31,255,2 
48,15, 255, 249,7, 255, 224,3,255,192 

S855 DATAL, 255,128,46,255,9,g 


5G6G DATAS1,224,9,31, 248,49, 25,252,9,31,1 
59,9,31,15,8,9,63,9,9, 252,9,3, 248,90 

5078 DATAS,192,9,7,128,9,15,128,9,15,9,9 
»149,8,9,14,15, 248, 14,15, 248,14,9,28 

5988 DATAI5S,9,12,7,128, 12,3, 255, 252,1,25 
5,248,9,255,249,9 

5O9G DATAG,9,9,3,248,9,7,252,9,7,255,9,1 
4,63,192, 28, 127,192,546, 127,192,129,255,9 
5199 DATA121, 254,112,127, 252, 248,127,253 
, 252,127, 253, 252,127, 252, 254, 63, 254,122 
5119 DATAS1, 255,54, 15,255, 28,8,112,9,7,1 
43,9,7,297,128,3,239,192,1,231,192,¢ 
5126 DATAG, 62,9,1,255,128,3,117,128,7,64 
,96,7,117,248,3,192,128,3,117, 248 

5139 DATA1I, 255, 248,959,123, 249,9,61, 224,9G, 
59,128,9,126,9,9,252,9,1,249,9,3,192,9 
514G DATA3S,9,9,9,8,9,9,9,9,99,9,99,9,9,o 
,9,9,9,G 

FOB REM HHEKKKKKKKKHKKHKKH 

7@G1 POKEV,X!POKEV+1,Y 

7OG2 IFY>1SSTHENS6OO 

7G@G3 IFDI>STHENZGSIZ7 

7884 IFY=7GANDX> 1 59THENS699 

7995 IFY=7GANDX< 1SGTHENS469S 

7886 LFY<7GANDDI< 1 THENS69E 

7@@G?7 FG=S 

7G1G DS$="{HOME}{CUR DN} {CUR DN3{CUR DN?£ 
CUR DN}{CUR DN}{CUR DN}{CUR DN3{CUR DN}E 
CUR DN3{CUR DN}{CUR DN} {CUR DN3{CUR DN3¢ 
CUR DN}{CUR DN}{CUR DN?{CUR DN3{CUR DN?}¢ 
CUR DN}{CUR DN3{CUR DN}3{CUR DN3" 

7G2G AS="{CYEL}{RVS ON} {CUR DN}{CUR Lf 
CUR L3{CUR L} {CUR DN3{CUR L3{CUR L}¢ 
CUR L}? <{RVS OFF3" 
7G939 IFY=7GANDS (1) =9THENPRINTLEFTS (DS, 4) 
SPC (16) AS! S=S+1!S(1)=1!: RETURN 

7959 IFY=95THEN7Z15¢ 

7G6G IFY=12GTHEN7Z18¢q 

7878 IFY=145THEN723¢ 

7G89 IFY=179THEN7399 

7898 IFY=195THEN7Z499 

7199 RETURN 

7159 IFX=125ANDS (2) =@THENPRINTLEFTS (DS, 7 


)SPC (13) ASG:i S=St125(2)=1:°: RETURN 

7160 IFX=175ANDS (3) =S@THENPRINTLEFTS (DS, ? 
YSPC (19) AS:2 S=St1°59(3) =1°2 RETURN 

Y165 IFX< 1L1250RK>175THENS 696 

7176 RETURN 

7186 IFX=19@G@ANDS (4) =S6THENPRINTLEFTS(DS, 1 
G@)SPC (198) ASB: S=S+1°559(49) =1:°: RETURN 

719G IFX=15GANDS (5) =S@THENPRINTLEFTS (DS, 1 
G@)SPC (16) AS! S=St+12°S9(5)=1:5 RETURN 

72968 IFX=2O6GANDS (6) =G@THENPRINTLEFTS (DS, 1 
@)SPC (22) AS: S=St1:2:5(6)=1°5 RETURN 

72135 IFX< 1 GMBORK > 2SEBTHENS SSIS 

7229 RETURN 

2238 IFX=7SANDS (7) =STHENPRINTLEFT$ (DS, 13 
YSPC (7) AS? S=St1:5(7)=1°: RETURN 

724946 IFX=125ANDS (8) =@THENPRINTLEFTS (DS, 1 
3) SPC (13) AS? S=St1°35(8)=1:°: RETURN 

72958 IFX=17S5ANDS (9) =GTHENPRINTLEFTS (DS, 1 
3) SPC (19) AS! S=S+125(9)=1° RETURN 

226098 TFK=225ANDS (19) =B6THENPRINTLEFTS(DS, 
13) SPC (25) AS: S=St1°S5(19G)=1°; RETURN 

22693 IFX<750RX% Oo 2S25THENGOSUBS 699 

72/768 RETURN 

7398 IFX=SGANDS(11) =S@THENPRINTLEFTS(DS, 1 
6) SPC (4) AS: S=St1:S5(11)=1° RETURN 

Y3S16 IFX=196GANDS (12) =STHENPRINTLEFTS (DS, 
16)SPC (19) AS: S=St1:9S(12)=1:RETURN 

735298 IFX=159GANDS (13) =STHENPRINTLEFTS(DS, 
16)SPC (16) AS: S=St1°5(13) =1°> RETURN 

73308 IFX=26GANDS (194) =S@THENPRINTLEFTS (DS, 
16) SPC (22) AS: S=St1:9(14) =12 RETURN 

72396 TFX=259ANDS (15) =S@THENPRINTLEFTS(DS, 
16) SPC (28) A$S2S=St12:5(15)=1: RETURN 

7345 IFX<SAORX >258THENS6E9 

7308 RETURN 

7990 IFX=25ANDS (16) =S@THENPRINTLEFTS (DS, 1 
9) SPC (1) AS) S=St1°55(46)=1: RETURN 

29190 IFXR=7S5ANDS (17) =GS@THENPRINTLEFTS# (DS, 1 
9) SPC (7) AS: S=St1°:5017)=1° RETURN 

24929 IFAXA=125ANDS (18) =GTHENPRINTLEFTS (DS, 
19) SPC (13) AS2S=St1°:5(18) =1:5 RETURN 

2930 IFX=17S5ANDS (19) =STHENPRINTLEFTS(DS, 
19) SPC (19) AS2S=St1°55(19)=1° RETURN 

7499 IFX=225ANDS (29) =S@THENPRINTLEFTS(DS, 


19) SPC (25) AS2S=St1°5 (29) =1 > RETURN 


7459 


IFX=15ANDS (21) =STHENPRINTLEFTS (DS, 1 


PSPC (31) AS S=St1255(21)=1° RETURN 


7455 
7456 
7468 
Saag 
SGG1 
Saar 
SGA3 
S9G4 
SggS 
SIG6 
Sag? 
8a1g 


SG135 
SH16 
Sai? 


IFPEEK (V+16) =@ANDX< 25 THENS 692 
IFPEEK (V+16) =1ANDX>1S5STHEN969¢ 
RETURN 

REM ¥¥*% COILY’S DEATH ¥** 
IFW>199THENSSS7 

IF@>159THENG=Q+29: IFQ@>255THENG=255 
IFQ@<¢ 15S9THENG=Q-2G: IFQ<STHENG=5 
POKEV+4,@!POKEV+5,W 

IF@>1 59THENG=@+25! IFQ@>255THENQ=255 
IFQ@< 15GTHENG=Q-25:!: IFQ@<5THENG=5 
POKEV+4, @: POKEV+5,W 
POKEV+41,14:TS=1 

GOSUB9ga9 


TY=Wt65: IF TY S255THENT Y¥=299 
FORTT=WTOTY: POKEV+tS, TT: NEXT: POKEV+4 


39: POKEV+5S, 9: POKEV+41,2 


BSI2G 
S930 
S949 
S938 
SH6G 
39708 
Sd39 
3199 
S119 
8129 


S139 


RT=G:QW=9 
Q@=175!W=59: POKEV+4, @! POKEV+tS, W 
XZ=XZ+199G:RETURN 

REM **¥% COILY’S DECENT *¥** 
W=W+5!POKEV+5, W 

IFW=95THENTS=9 

RETURN 

REM ¥*¥% COMPLETE SCREEN ***% 
POKEV+21,9!:PRINT"{CLR}" 
SR=SR+1:PRINT!:PRINT"{WHT}WELL DONE. 


PRINT:®PRINT"{LT BLUSLIVES"LI:S PRINTS 


PC(19)"{CUR UP}{OR}SCREENS LEFT"RS-SR 


3149 


PRINT: PRINT"{RED}{RVS ON} {RVS OFF3 
aaehehe {RVS ON} {RVS OFF3" 


8159 PRINT" {YEL}BONUS 399@{(RED}<(RVS ON} 
CRVS OFF3” 
8169 PRINT"{RVS ON} {RVS OFF}---------- { 


RVS ON? {RVS OFF?" 


S176 


XZ=XZ+3990O8: PRINT: PRINT" {PUR}SCORE"X 


Zz 
S189 IFXZ>HSTHENHS=XZ! PRINT! PRINT"{CYN3Y 
OU HAVE THE HIGH SCORE" 


S196 
8319S 


PRINT: PRINT"{LT GRN}HIGH"HS 
IFSR=RSTHENPRINT: PRINT" {CYN?3 YOU HAV 


10 


E NO 


S299 
S210 
S220 
3230 
S3GDG 
S395 
3386 
S307 
8310 


EV+t9, 


33209 


SCREENS LEFT. WELL DONE!!" 
PRINTSPRINT"{WHT}HIT ANY KEY" 
GETGS#: IFG#=""THENS219 
IFSR=RSTHENS499 

GOTOL9SS 

REM *¥**% LOSE A LIFE *** 

POKEV+21, 31: POKEV+23, 16: POKEV+29, 16 
IFX>=246THENGQZ=X! X=245 

IFX< 246THEN@Z=X 

LI=LI-1!:POKEV+t43, 1:POKEV+8, X+19:POK 
¥-29: GOSUB9299 
X=@Z!OZ=G: A=1598: B=O! Q@=175!W=78:TS=1 


>N=156°M=35:2C=1°52V=1 


S330 
3349 


RT=0;QW=9 
PRINT" {HOME} {CUR DN3{CUR DN} {REDILI 


VES"LI 


8345 
8350 
836a 
+7,™ 
8372 
S38g 
8490 


8414 
84209 


8439 


IS"HS 


3446 


THER 
S439 


8466 


FORNK=1TO?79G9: NEXT 


IFLI=9THENS499 
POKEV+2, A: POKEV+3, B: POKEV+6,N: POKEV 


POKEV+21,15:POKEV+8, 9: POKEV+t9,¢ 
RETURN 

REM *+** END OF GAME *** 
POKEV+21,4: PRINT" {CLR>” 

PRINT" {WHT3YOU SCORED@" XZ 

PRINT: PRINT"{CORSAND THE HIGH SCORE 


PRINT: PRINT" {PURSWOULD YOU LIKE ANO 
GAME ON THE GRID?" 

GETGS: IFGS=""THEN845¢ 
IFGS="N"THENPRINT"{CLRICLT BLU": PO 


KE53281,6!POKE53289, 14: END 


3470 
3438¢ 
S368 
3501 
S53d2 
S503 


IFGS<>"Y" THENS459 
POKEV+16,9:XZ=96:LI=3:GOTO19 

REM *%* MOVE DISK X** 

ALZ=AKZ+19G 

IFXZ >HSTHENHS=xX2 

PRINT" {HOME} {PUR} SCORE" XZ: PRINTSPC ( 


25) "{CUR UPC YELSHIGH"HS 


83519 


DS="{HOMES{CUR DN3{CUR DN3{CUR DN3¢ 


CUR DN {CUR DN {CUR DNF{(CUR DNI{CUR DN 
CUR DN3{CUR DN" 


S511 


L?{CUR L3{CUR Li 


{CUR DN{CUR LI{CUR L3{CUR 
{CUR DNF{CUR LStcu 


DDS=" 


11 


R L3{CUR L3{CUR L3{CUR L} : 


S526 IFX=259G0RDI>15THENS?/69 
8525 PRINT" {HOME3{CUR DN}{CUR DN}{CUR DN 


{CUR DN} {CUR DN}{CUR DN}?{CUR DN3}{CUR DN 
3{CUR DN} {CUR DN3 "DDS 

8526 IFDI>STHENS559 

S539 DI=3:D1I(1)=1 

S549 K=19 

S559 X=xK+9:Y=Y-1G 

S56G PRINTLEFTS(D%,K) SPC (DI) DDS 

S578 K=K-1:DI=DI+1 

S58@ PRINTLEFTS(D%,K) SPC (DI) DI#: POKEV,X: 
POKEV+1,Y 

8599 IFK=1THENS699 

$595 RETURN 

8698 PRINTLEFTS (D%,K) SPC (DI) DD: K=9: DI=9a 
8619 X=159!Y=70: POKEV, X!POKEV+t1,Y 

8626 IFDI(1)=@THENPRINT"{HOME} {CUR DN3{C 
UR DN}{CUR DN}{CUR DN} {CUR DN}{CUR DN}{C 
UR DN3{CUR DN}{CUR DN3{CUR DN} "DIS 
863G IFDI(2)=@THENPRINT" {HOME} {CUR DN<{C 
UR DN}{CUR DN}{CUR DN3{CUR DN}{CUR DN3<{C 
UR DN}{CUR DN}<{CUR DN3{CUR DN}"SPC(28) DI 
$ 

8648 RETURN 

S79G PRINT"{HOME}{CUR DN}{CUR DN3<CUR DN 
3}{£CUR DN}{CUR DN}{CUR DN3{CUR DN}{CUR DN 
3{CUR DN3{CUR DN}"SPC (28) DDS 

8795 IFDI>S@THENS739 

8718 DI=28:D1(2)=1 

8728 K=19 

S73G X=X-S:Y=Y-1G 

874@ PRINTLEFTS(D%,K)SPC(DI) DDS 

875@ K=K-1:DI=DI-1 | 

8768 PRINTLEFTS(D#,K) SPC (DI) DIS! POKEV, X: 
POKEV+1,Y 

8778 IFK=1THENS699 

8789 RETURN 

9GGG REM XXXMUSICKH* 

9918 REM **¥* FALLEN OFF GRID ¥** 

9928 POKES4276, 9! POKES4296, 15: POKES4273, 


37; POKES9277,134: POKES4276, 129? 
9949 RETURN 
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9559 
91GB 


9119 


RETURN 
REM *** BOUNCE **x 
POKES494276,90; POKES4296, 15: POKES4273, 


7;POKES4277, 134: POKES4276, 33 


9129 
P2GD 


9216 


4296, 


325 


924968 
F250 


9260 


RETURN 

REM *** CAUGHT **X 
FORFG=1S5TOSSTEP-1:POKES9276,90: POKES 
FG: POKES4276, 129: POKES4277,15 


POKES4273, 49: POKES4272, 29G: NEXT 
POKES4276, 8: POKE5S4277,9 


RETURN 
REM *** BOUNCE BALL *** 
POKES4283,96: POKES94296, 15: POKES4289, 


294; POKES49284, 134: POKES4283, 33 


927h 
PSSA 
9519 
9528 
93538 
9548 
9550 
9568 
P6905 
9619 
P6265 
9676 
9630 


9758 
9710 


RETURN 
REM **¥*% BALLS DECENT *x*% 
B=B+5!:POKEV+3,B 
IFB=75THENZV=@:! FL=@! GH=9 

RETURN 

M=M+5:POKEV+7,™M 

IFM=75THENZC=@2 

RETURN 

REM **¥*% YOU FALL OFF GRID ¥**% 

IFX< AS@THENX=X-25!: IFX< 2G9THENX=26 
IFX> 1 5@THENX=X+25! IFX>255THENX=255 
POKEV, X:POKEV+1,Y 

GOSUBSEgg 
TY=Y+65! IFTY >255THENTY=299 
FORTT=YTOTYSTEP2! POKEV+1, TT:NEXT!PO 


KEV,@:POKEV+1,@ 


9728 


GOTOS8S49¢6 


READY. 
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QUEST FOR 
RIEMANNIAN 


Science fiction seems to occupy a niche in the mind of 
modern man which was in earlier ages filled with tales 
of witches and werewolves. 


Science fiction stories are an underlying myth of our 
age. This explains, in part, the popularity of computer 
games based on science fiction backgrounds which are now 
part of the accumulated information we carry in our 
heads. Television programs, like Paramount Picture's 
perennial classic 'STAR TREK', and movies such as STAR 


14 


WARS have spawned a huge number of popular games, and 
novels of writers Like Asimov and Heinlein have given 
game creators flesh to fill out the relatively bare 
Trekkers’ universe. Who would not gladly take on_ the 
training to become a Jedi knight? 


QUEST FOR RIEMANNIAN steps into the same arena, making 
assumptions about 'future history’ background that will 
be understood and accepted by anyone who has’ visited 
such exotic locations as Niven's RINGWORLD. 


At the start of your mission, you tell the computer your 
name, and enter the name of your ship: 


PLEASE ENTER YOUR NAME? TIM 


NOW THE NAME OF YOUR SHIP? STAR=SEEKER 


Your task is to go boldly where millions of men _ have 
gone before, into the busy sectors of Known Space. You 
start off on Earth (in, of course, the Terran Sector Of 
The Galaxy) and have to ensure your craft and crew stay 
together Long enough to make it through the galaxy, and 
back to earth. 


It seems that, a Long time ago (around 2048, on the Old 
Calendar) a particularly benovelent alien race Landed on 
earth, and gave us an enormous, all-wise computer’ to 
help us out. Being essentially Lazy, humankind gave more 
and more responsiblity to the computer, until eventually 
it was running everything of importance on the planet. 


There was one thing the benevolent aliens forgot to 
mention. As it operated, the computer used up atoms of a 
rare and precious metal called Riemannian. From time to 
time, the supply of Riemannian must be _ replenished. 
There is Little Riemannian in Known Space, and your task 
is to find some, mine it, and bring it back for the 
computer. 
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Your report screen will give you a picture Like the 
following after you've named your ship: 


LEBER EEEEEEEEE EEE EEE EF EEE HEHEHE HEHEHE HHH + 
YOU ARE IN THE TERRA 

SECTOR OF THE GALAXY 
FEEEEREREEEEHREEEE EEE HEE EEE EHHEEHHEtHE HHH 
FUEL: 84.25 MONEY RESERVES: 80 
OXYN: 60.5 RIEMANNIAN: 0O 
PROV: T2 STARDATE: 1 
SHEE EEEREEEEEEEEE EEF EEE EEE EEE HHH He Ht tt 
FEEREEEEELEREEE EEE EEE HEHE EE HEHEHE HHH ete ttt 
HEEEEREPE EE EEE EEE HEHEHE HEHEHE tet et eet 


YOU'RE APPROACHING A TRADING POST PLANET 
FEEEEEEEEEE EEE EE EE EES EEE EEE HEHE $+ ete ee eeest 


IT IS THE PLANET ASIMOV III 
LEEEEEEEEE EERE EE EE EEE EEE EEE EEE EE HET HH 
THE INHABITANTS OF ASIMOV III 

WISH TO BUY RIEMANNIAN, AND WILL SELL 
YOU PROVISIONS, FUEL AND OXYGEN 

LEER EEE EEE EEE EEE EEE EEE EEE EEE HEHEHE Het$t 


As Riemannan is in demand on other planets, you'll find 
people everywhere are desperate to buy it. If your 
money reserves run low, you may well have to sell off 
some of your hard-won metal, just to buy such Luxuries 
as food and oxygen. 


You'Ll discover the game makes very tough demands on 
your management abilities. Although finding Riemannian 
and getting it back to earth is the prime purpose of 
your mission, simply surviving quickly becomes your 
highest day to day priority. 


You can trade with ‘trading post planets’ if you Like: 


EERE EEEE EEE EE EE EEE EEE EE HEHEHE HEHE Hte eet tee 
THE INHABITANTS OF ASIMOV III 

WISH TO BUY RIEMANNIAN, AND WILL SELL 
YOU PROVISIONS, FUEL AND OXYGEN 

PEELE EEE EEE HEE EE EEE EEE EEE EEE HEHEHE HEH tt 


ENTER YOUR CHOICE: 


- TO SELL RIEMANNIAN 
- TO BUY PROVISIONS 
BUY FUEL 
- TO BUY OXYGEN 
5 = TO CONTINUE FLIGHT 1 
PEEEEE EEE EE EEE EERE EEA HEHEHE HEHEHE HEH testes 
YOU HAVE NONE TO SELL! 


HeWND = 
0 

hr 

© 


PLEASE ENTER NEW CHOICE 
2 


HEEEEERE EEE HEHEHE EEE EEE EEE EE HEHEHE Hee Hee tet 
YOU HAVE 80 CREDITS 


THE TRADERS ARE SELLING PROVISIONS 
AT 13 CREDITS PER UNIT 


HOW MANY UNITS DO YOU WANT TO BUY? 2 
> THE SALE HAS BEEN MADE < 


PERE E EEE EFE HEE HEHEHE HEH ett ete etesese 
YOU ARE IN THE MIRA 

SECTOR OF THE GALAXY 
FERRER E EEE EEE EEE EEE FEF EH eee teeete gees 


You need to keep your fuel tanks topped up as well: 
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HERE EEEEE EE EEHEEE HEHEHE HEHEHE HEHE e He tee tt: 

YOU ARE APPROACHING REFUELING ORBITING 
STATION NUMBER 4 

FEEEEEEEEEEERE EEE EE HEE EEE HEED HEHEHE HEHEHE Het 

YOUR CURRENT BANKS HOLD 25 

PEELE EEHEEEEE EEE EE EEE EEE ET HEH EHH 


PRESS 1 TO ATTEMPT LANDING 
OR 2 TO CONTINUE FLIGHT 
FOLLOW THE CO-ORDINATE LANDING 
SEQUENCE FOR A SAFE TOUCHDOWN... 
1 = PRESS THE !2!' KEY 
2 - PRESS THE '9!* KEY 
3 - PRESS THE '2!' KEY 
4 = PRESS THE '8! KEY 
5 = PRESS THE '6! KEY 
6 = PRESS THE '6! KEY 
7 =- PRESS THE '3!' KEY 
8 = PRESS THE '7! KEY 
9 = PRESS THE '2' KEY 
10 - PRESS THE '4! KEY 
EERE EEEE EERE PERE EEF AEE EEE HEHEHE ttt et 
YOU MANAGED TO COMPLETE THE SEQUENCE... 
YOU ARE NOW CLEARED FOR LANDING... 
HERE ON STATION 4 THE COST 
OF FUEL SUITABLE FOR THE STAR=SEEKER 
IS 15 PER UNIT 


FEE EH EEE EEE EEE HEHEHE EEE HH HHH He teats 
YOU HAVE 228 CREDITS 


HOW MUCH FUEL DO YOU WANT TO BUY? 10 


YOUR TANKS NOW HOLD 35 


AND YOU HAVE 78 CREDITS 


Of course, not everyone in Known Space is necessarily as 
peace-loving and friendly as we are on earth: 


YOUR NAVIGATION COMPUTER SIGNALS THAT 

AN ALIEN CRAFT HAS BEEN SPOTTED 

APPROACHING YOUR SHIP...IT HAS NOT YET 

BEEN ABLE TO IDENTIFY IT. IS IT FRIEND 
OR FOE? 


EEE EEEEE EEE EEEEEEEEEEEEEEEEEEEEE EEE EEE 
COMPUTER IDENTIFIES SHIP ORIGINATES IN 
THE KEOIMUMI SYSTEM 


ALLIANCE NOT YET DETERMINED... 
>>> STAND BY <<< 


FEEEEEEEEEEEEEEEEEE EEE EEE EEE EEE HEHE HEHEHE 
THE ALLIANCE OF THE KEOIMUMI IS 


WITH OUR EMPIRE...ALLOW THEM TO BOARD 


PEEEEEEREEE EERE EEE EEE EEE EE HEE EEE EEE HH 
THE KEOIMUMINS OFFER YOU EITHER 


1 = FUEL 
OR 2 = OXYGEN 


## WHICH ONE DO YOU WANT? ##4 
PEEEEEEEEEE EEE EEEEE EEE EEE EEE EE HEE HHH + 
>» FUEL IT IS < | 


You were lucky that time! 
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It is important not to forget, in the hurly—burly of day 
to day survival out there in space, that you're leading 


this mission primarily to get hold of the elusive 
Riemannian: 


PEEEEEE HEHEHE EE HEHEHE HE AEH HEHEHE HEHEHE Feet tet ttt 
YOU ARE IN THE CITA 

SECTOR OF THE GALAXY 
PHEEEEEE EEE EEE EE EE HEHE EEF E HEHEHE HEHE HH t+ t+ 


FUEL: 93 MONEY RESERVES: 54 
OXYN: 50 RIEMANNIAN: 0O 
PROV: 67 STARDATE: 4 


EEE EEEEE HEHEHE EEE HEHE EEE HEHEHE HEH Het tt 
HEEEEEEHEEEEEEEEEEE HEHEHE HEHEHE EHEH H+ tet t+ 
YOU LAND THE STAR-SEEKER ON 

THE MINING ASTEROID DRACONIS II 


YOUR ORE DETECTING COMPUTER GENERATES 
TWO NUMBERS, LESS THAN 10. IF YOU CAN 
CORRECTLY PREDICT A FACT ABOUT THE 
THIRD CO-ORDINATE, YOU'LL BE ABLE TO 
MINE FOR THE PRECIOUS RIEMANNIAN 


FEEEEEEEE EEE EEE EEE EE EHEHEE HEHEHE Het ett ett 
FIRST TWO CO=ORDINATES ARE 5 AND 9 


ENTER 3RD CO-ORDINATE PREDICTION: 
A =- IS BETWEEN 5 AND 9 
- IS EQUAL TO 5 OR 9 


B 
C = IS GREATER THAN 9 
2? A 


THIRD CO-ORDINATE IS 3 


COMPUTER REPORTS YOU ARE UNABLE TO 
MINE FOR RIEMANNIAN ON DRACONIS II 


Failing as a miner is not the only humiliation which 
awaits you: 


20 


THE STAR=SEEKER IS UNDER ATTACK FROM A 
FLEET OF HERTZSPRUNG SHIPS 

TO DEFEAT THE DREADED HERTZSPRUNG 

YOU HAVE TO CONFUSE THEIR CONTROL 
COMPUTER BY SENDING A CODE SIGNAL 
WHICH THE COMPUTER WILL INTERPRET AS 
MEANING YOU ARE ALSO A HERTZSPRUNG 
SHIP.....STAND BY TO SEE THE CODE.... 
ONCE IT VANISHES FROM YOUR SCREEN, YOU 
MUST SEND IT BACK TO THE ‘-HERTZSPRUNGS 


STAND BY... 
THE CODE IS > 694202 


SEND THAT CODE BACK TO CONFUSE THEM 
? 649202 


OH NO...YOU WERE WRONG! 

YOU SIGNALED 649202 AND 

THE CODE WAS 694202 

THE HERTZSPRUNGS ATTACK... 

THETR FIRE HAS HIT OUR SHIELDS 
DRAINING ENERGY FROM OUR RESERVES 


FEEEEEEEEE EEE EEREPE EEF E EEE HEHE + HE+ Et tt 


Eventually, though, if you manage to make at least a few 
correct decisions,, you'll see our fair planet appear on 
your holographic display. However, if you run out of 
such things as oxygen, fuel or provisions the game will 
end, giving you a report on your competence: 
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PEEEEEEE EEE EEE HEH tee tee eeeetegeaeae 
YOU ARE NOW IN PLEIDES 

ON YOUR WAY HOME 

FEEEEHREEE EEE EEE EEE EEE HEHEHE He tte te eeteese 


FUEL: 25.5 MONEY RESERVES: 22 
OXYN: 0O RIEMANNIAN: 12.25 
PROV: 32 STARDATE: 18 


FEEEEREEEE HEE REE EEE EEE EE EEFE HEHE HHH +H et eee 
ALL OXYGEN TANKS EXHAUSTED 


NOW WE WILL SEE HOW WELL YOU DID ON 
THAT TRIP! 
YOU MANAGED TO MINE 12.25 TONS 

OF RIEMANNIAN 


YOUR RATING, CAPTAIN TIM, 
FOR THIS RUN IN THE STAR=SEEKER IS: 


RATING AFTER FACTOR 1 IS 0 
RATING AFTER FACTOR 2 IS 76 
RATING AFTER FACTOR 3 IS 208 
RATING AFTER FACTOR 4 IS 881 
RATING AFTER FACTOR 5 IS 881 


RATING AFTER FACTOR 6 IS 1882 


PEPER ERERE EEE EEE EEE EEE EEE HEHE Ht ete tee tet 
YOUR FINAL RATING IS 1945 
PEEEEEEEE EE EEE EEF EEE HEHEHE HEHEHE HEHEHE He ttt 


The game is reasonably complicated, but you'll find 
you'il be able to play it without too much trouble 
because the computer only presents you with one major 
problem at a time, and (so long as you keep an eye on 
your oxygen and other vital supplies) you will only have 
to deal with that single problem before being brought 
face to face with another one. 
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Because certain regions of Known Space have not’ been 
accurately mapped, I've taken on the responsibility of 
naming many sectors, planets and alien races. Most of 
the names used in this simulation come from real people 
who are, or have been, connected with research into 
space. 


For example, the metal Riemannian is named after the 
mathematician Bernhard Riemann, who has devised a 
geometry which deals with the complexities of space 
which can not be described in the standard, three- 
dimensional Euclidean manner. This geometry, called 
Riemannian Geometry, is fiendishly complex, but quite 
happily describes such things as the Klein bottle (which 
has only one surface, with the outside and the inside 
being the same!) and the effects of gravitation as one 
body approaches another. 


One of our alien races is called the Herzsprung, named 
after the Swedish astronomer Ejnar Hertzsprung who with 
American astronomer Henry Norris Russell discovered in 
1914 a way to determine the distance of stars from earth 
by examining their brightness, and spectral class. 
Another race, the Lallemand, is named after French 
astronomer Andre Lallemand who worked out the _ theory 
which made it possible to take electron photographs 
(rather than Light photographs) of dim, distant stars, 
using a device called the electronographic camera. 


The space sectors names follow earth names for stars and 
constellations, although I've moved them around a bit. 
The trading post planets represent a glittering group of 
individuals: 


ASIMOV III - Named, of course, after the good 
doctor himself 


GALILEO IV — I'm sure you know who he is 
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BARNARD'S REST - Presumably, this planet orbits 
Barnard's star, the closest star to earth (1.8 parsecs, 
or 5.9 Light years away) discovered in 1916 by American 
astronomer Edward Emerson Barnard. The dim red star is 
considered Likely to have a planetary system 


PRAESEPE - A group of stars, in the constellation 
of Cancer 


I'LL Leave it up to you to find out how the other 
trading post planets were named. 


19 REM QUEST FOR RIEMANNIAN 

24 GOSUB 5399: REM INITIALISE 

39 OX=0X-3.5! IFOX< 1 THENOX=9 

44 FU=FU-4.75! IFFUS 1 THENFU=9 

59 PR=PR-2.45: IFPR< 1 THENPR=9 

6G TE=TEt1 

78 PL=PL+1 

89 GOSUB29¢9: REM PRINTOUT 

99 IFOX< 1@ANDOX>@THENPRINT"{LT RED} X*<{WH 
T} OXYGEN LEVEL NEEDS ATTENTION{LT RED} 

HX i 

199 IFOX=@THENPRINT"{WHT3ALL OXYGEN TANK 

S EXHAUSTED": GOTO43¢ 

119 IFPL=24THENPRINT" {WHT} YOU HAVE ARRIV 

ED SAFELY BACK ON EARTH": GOTO43¢ 

129 IFPR<1MANDPROS@THENPRINT"{LT RED?@@ ¢ 

WHT}SUPPLIES MUST BE SUPPLEMENTED{LT RED 
+ ee" . 

139 IFPR=@THENPRINT"{WHT3}YOU HAVE RUN OU 

T OF PROVISIONS": GOTO439 

149 IFFU<19ANDFU>STHENPRINT" C(WHT3>> WARN 
ING - FUEL IS LOW <<" 

i159 IFFU=STHENPRINT"{ WHT} YOUR FUEL HAS B 

EEN EXHUASTED":GOTO439 

169 PRINT"{KLCYNF HHH eet teteteetetetetetetett 
Fete teteeteteeet" 

179 IFRND(1) >. 5THEN23¢ 

189 IFRND(1)>.82THENGOSUB799:REM HOSTILE 
ALIENS 

199 IFRND(1) >. é6éTHENGOSUB135¢:REM RIEMANN 

IAN RESERVES 
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299 IFRND(1)>.7THENGOSUBI989@:REM REFUEL 

STATION 

219 IFRND(1)>.6THENGOSUB2529: REM FRIENDL 

Y ALIENS 

228 IFRND(1)>.97THENGOSUB2999:REM BLACK 

HOLE 

239 IFRND(1)>.6THENGOSUB3329: REM TRADIN 

G POST 

2498 IFRND(1)>.9THENGOSUB4279:REM MEETING 
WITH LEGENDARY ’SPACE ARK’ 

259 IFRND(1)>.851THENGOSUB4859:REM SPACE 
ATTACK 

268 GOSUBS729 

27G GOTO39 

PEG REM HHKK HHH HHH HH HII 

29G REM PRINT OUT 

399 PRINT"{CLR}" 

319 LS="" 

328 PRINT 

3SBG PRINT"KLCYNFFHEHEEEHEE HEHEHE EEE PE +H HEH HH 

HEEHEEHEHEHEHEE HEHEHE H+" 

349 IFPL<1i3THENPRINT"{YEL}YOU ARE IN THE 
"2A$(PL)SPRINTTAB(S)3 "SECTOR OF THE GAL 

AXxyY" | 

35@ IFPL>12THENPRINT"{YEL}YOU ARE NOW IN 


"sAS(25-PL):PRINT"ON YOUR WAY HOME" 
SOG PRINT" {I CYNFFEEEEFEHREEEHEHEEHE EE HEHEHE HE Ht 


H+t+tetettetetetet" 

3798 PRINT" {ORSFUEL: {WHT} "FU, "{ORMONEY R 
ESERVES: (WHT? "WE 

389 PRINT" {ORJOXYN: (WHT? "OX, "LORI RIEMANN 
IAN: (WHT? "RI 

3990 PRINT" {£OR}PROV: CWHTS "INT CPR), "CORSST 
ARDATE: (WHT? "TE | 

4909 PRINT"{CYNF FF teeeeeeHeteeeeteetet+ritt+ 
Httttetttetetet+r+e t+” 

4196 RETURN 

4245 REM KKXHKKKHKHKKKKEEK 

4390 REM END OF QUEST 

449 IFPL=24THENPRINT"{YEL}WELL DONE!!!" 
450 PRINT: PRINT" {GRN}NOW WE WILL SEE HOW 


WELL YOU DID ON" 
466 PRINT"THAT TRIP! (PUR}" 
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4796 PRINT" YOU MANAGED TO MINE”"RI"TONS":P 
RINTTAB(7)5; "OF RIEMANNIAN" 

489 IFRI=@THENPRINT" YOU FAILED IN YOUR P 
RIME OBJECTIVE" 

485 IFRI=STHENPRINT"WHICH WAS TO MINE RI 
EMANNIAN" 

499 GOSUBS7295 

2698 PRINT"{YELS YOUR RATING, CAPTAIN ";NS 


S1@ PRINT"FOR THIS RUN IN THE "3S%3" IS: 
328 PRINT 

338 KX=G:PQ=G 

2498 GOSUB669 

559 PQ=PQ+t+3XFU: GOSUB669 

3769 PQ=PQ+4*XPR:GOSUB669 

3709 PQR=PQtSS¥RI 2 GOSUB6469 

33H PG@=POQ+12kXOX: GOSUB669 

399 PR=PQ+d4d5.S5*XWE: GOSUB669 

696 PQ=PQ-2*XHAt4GERStS¥FA-2¥SAtS.4¥TP 

619 PRINT: PRINT 

628 PRINT"{CYNF FFF tte eee t tet ee eeeeeetett 
$Httttetetettett" 

639 PRINT" {YEL} YOUR FINAL RATING IS"INT ( 
PQ) 

64D PRINT"{CYNF FFF tt ttt teeeeeteeteetetett 
FHF HHettteteteetet" 

6590 END 

669 K=Xt+t1Li PRINT" {WHTFSRATING AFTER FACTOR 
"X"IS" INT (PQ) 

6798 GOSUBS729 

689 RETURN 

EPH REM KKEKKKKKKKKKKKE 


769 REM HOSTILE ALIENS 
718 HA=HA+1! IFHA>2THENRETURN 


729 RB="SAURONTIAN" 

738 Y=INT(RND(1)¥8) 

7499 IFY=1THENRS="HARADRIM" 

7358 IFY=2THENRS="NEBULIAN" 

766 IFY=3THENRS="SPROUL" 

778 TFY=4THENRS="ARECIBO" 

788 IFY=STHENRS="HERTZSPRUNG" 
798 IFY=6THENRS="LALLEMAND" 
S890 IFY=7THENRS="COUNTERMIXIAN" 
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8190 PRINT" {GRN3THE "3535" IS UNDER ATTAC 
K FROM A" 

8206 PRINT"FLEET OF "3;R%3" SHIPS" 

839 GOSUBS729 

S49 CO=INT((RND(1) #199900) *199+ (RND(1)*19 


G)) 

85@ PRINT: PRINT"{PUR}TO DEFEAT THE DREAD 
ED ";RS | 

S6@ PRINT"YOU HAVE TO CONFUSE THEIR CONT 
ROL" 

8708 PRINT"COMPUTER BY SENDING A CODE SIG 
NAL" 

888 PRINT"WHICH THE COMPUTER WILL INTERP 
RET AS" 

899 PRINT"MEANING YOU ARE ALSO A "3R% 
290 PRINT"SHIP..... STAND BY TO SEE THE C 


918 PRINT"ONCE IT VANISHES FROM YOUR SCR 
EEN, YOU" 

929 PRINT"MUST SEND IT. BACK TO THE "3R%3 
won 

938 PRINT:PRINT"STAND BY..." 

949 FORT=1TO14GG+RND (1) *499 

959 NEXT T 

969 PRINT"THE CODE IS>"CO 

979 FORT=1TOS@@: NEXT T 

989 PRINT"{CLR}" 

999 GETAS! IFAS< >""THENS9D 

1998 PRINT: PRINT 

1919 PRINT"SEND THAT CODE BACK TO CONFUS 
E THEM" 

1928 INPUT@ 

1938 GOSUBS72¢ 

1949 PRINT:PRINT 

1959 IF@=COTHEN123¢ 

1968 PRINT"OH NO...YOU WERE WRONG! " 


19790 PRINT" YOU SIGNALED"G" AND" 
1988 PRINT"THE CODE WAS"CO 


1999 GOSUBS7296 
11990 PRINT: PRINT 


119 PRINT"THE "3R3"S ATTACK..." 
129 GOSUBS572¢ 


11396 IFRND(1)>.5THENPRINT" THEY HAVE RUPT 
URED AN OXYGEN TANK! "2 OX=INT (3#O0X/4) : GOT 
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1146 


1159 
1169 


1176 
1189 


1196 


Q=INT (RND(1)*3) 
IFQ=6THENYS="SHIELDS" 
IFQ=1THENYS="HULL" 
IFQ=2THENYS="ENGINES" 

PRINT" THEIR FIRE HAS HIT OUR "3S 
PRINT: PRINT"DRAINING ENERGY FROM OU 


R RESERVES" 


1298 FU=INT(3¥FU/4) 

1219 GOSUB5S729 

1226 RETURN 

123@ PRINT:PRINT"{WHT}YOU HAVE BEEN SUCC 
ESSFUL..." 

1249 PRINTTAB(S)3;"IN REPELLING THEIR ATT 
ACK" 

1258 PRINT:PRINT"THE ";R#j" ARE LEAVING 

THE" 

126@ PRINT"SPACE SECTOR AROUND THE "3S 

1278 GOSUBS729¢ 

1288 PRINT"CONGRADULATIONS, CAPTAIN "3N% 
1298 GOSUBS72¢ 

139G PRINTTAB(S) 3 "CONTINUING WITH FLIGHT 
1319 GOSUBS729 

1328 RETURN 

1338 RETURN 

1L34D REM XXXXKKKHHHKHEKHK HHH 

1359 REM RIEMANNIAN RESERVES 

136G Q=INT(RND(1)*5) 

137G IFQ=@THENYS="TAU III" 

138@ IFQ=1THENYS="ERIDANI IV" 

1399 IFQ=2THENYS="DRACONIS II" 

1499 IFQ=3THENYS="HERMU II" 

1419 IFQ=4THENYS="HYDRI VIX" 

1428 PRINT"YOU LAND THE "3S%3" ON" 

143G PRINT"THE MINING ASTEROID "3Y# 

1449 GOSUBS72¢ 

1454 PRINT:PRINT 

146@ PRINT"{QR3}YGUR ORE DETECTING COMPUT 


ER GENERATES" 


194796 


You 
1489 


PRINT" TWO NUMBERS, 
CAN" 
PRINT"CORRECTLY PREDICT A FACT ABOU 


LESS THAN 190. IF 


T THE” 
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194996 


PRINT" THIRD CO-ORDINATE, YOU’LL BE 


ABLE To" 
1598 PRINT"MINE FOR THE PRECIOUS RIEMANN 
IAN" 

1519 GOSUBS729 

1520 PRINT"{CYN} ttt ttetettettetretet+ttete tt 
Fett etetetetetet" 

1538 GQ1=INT(RND(1)¥*9) +1 

1549 Q@2=INT(RND(1)*9) +1 

155@ IF@2<=G@iTHENI53¢ 

1569 Q@3=INT(RND(1)*9) +1 

1579 PRINT"FIRST TWO CO-ORDINATES ARE"@1 
"AND"Q2 

1588 GOSUBS729 

1599 PRINT:PRINT"{WHT}ENTER 3RD CO-ORDIN 
ATE PREDICTION:”" 

1698 PRINTTAB(3)3;"A @ IS BETWEEN"G1i"AND" 
@2 

1619 PRINTTAB(3);"B @ IS EQUAL TO"@1"0R" 
a2 

1628 PRINTTAB(3)3"C @ IS GREATER THEN"G2 
14639 INPUTTS 

1648 IFT#<"A"ORTS>"C" THENL639 

1658 PRINTTAB(6); "THIRD CO-ORDINATE IS"@Q 
3 

1669 IFTS="A"ANDQ3>Q1LANDQ3< @2THEN1 749 
16768 IFTS="B"AND (Q3=G@10RQ3=@2) THEN1749 
1689 IFTS="C"AND@3>Q2THEN1749 

1699 GOSUB5729 

1796 PRINT:PRINT"COMPUTER REPORTS YOU AR 


E UNABLE TO" 
1719 PRINT"MINE FOR RIEMANNIAN ON "5 TS 


1726 


GOSUBS?726 


1730 RETURN 


1746 


PRINT: PRINT"COMPUTER REPORTS YOU AR 


E NOW ABLE" 


17358 PRINT"TO MINE FOR RIEMANNIAN ON ";Y 
$ 

1769 GOSUBS729 

1770 PRINT" THE SPEED WITH WHICH YOU HIT 

THE" 

1786 PRINT" INDICATED LETTER WILL DETERMI 
NE HOW" 

1796 PRINT"MUCH RIEMANNIAN YOU CAN MINE" 
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1866 FORT=1TO499+RND (1) *499 

1819 NEXT T 

1829 M=INT(RND(1)*¥26) +65: MS=CHRS (MM) 

18390 GETA$: IFAS< >""THEN1S3¢ 

18406 PRINT: PRINT 

18590 TX=9 

1869 PRINTTAB(8)5"{LT GRNSHIT THE ’"5M%S;5 
"? KEY" 

1878 TX=TX+t1 

1889 GETPS 

18990 IFPS< SMSTHENIS7¢ 

199690 TX=(460-TX) /26: IF TX< 1 THENTA=. 25 
1919 PRINT:PRINT"YOU HAVE MINED"TX" TONS" 
1929 GOSUBS?72¢ 

1936 PRINT: PRINT"NOW WE’LL RETURN TO QUR 
FLIGHT..." 

1949 RI=RI+TX 

1959 GOSUBS726 

19694 RETURN 

L197AG REM HKKEKKKHEKKKKHEKE 

1°86 REM REFUEL STATION 

1999 RS=RSt+1 

2OGH PRINT"{CYNFFHHEH HEHEHE EEE HEH He tet tees 
FHEhteetetttetetet" 

2616 PRINT"{YEL} YOU ARE APPROACHING REFU 

ELING ORBITING" 

2929 PRINTTAB(11)3; "STATION NUMBER"RS 

2PO3BG PRINT"{LCYN}FFtttetteetetetetttetetettettt 
FEtHe tee eeetetee 

29406 PRINT" {COR}YOUR CURRENT BANKS HOLD{W 

HT} "FU 

29508 GETAS: IFAS< >" "THEN2Z95PG 

2PG6G PRINT"CLCYNFFttettette tte etettettettett 
FHEttte tee teteeteete” 

2978 GOSUBS729 

2686 PRINT"{PUR}PRESS 1 TO ATTEMPT LANDI 
G" 

M390 PRINT" OR 2 TO CONTINUE FLIGHT” 
2199 GETTS 

2119 IFTS<>"1"ANDTS< > "2" THENZ1 9G 

2129 IFTS="2" THENRETURN 

2136 PRINT"FOLLOGQW THE CO-ORDINATE LANDIN 


G" 
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2146 PRINT"SEQUENCE FOR A SAFE TOUCHDOWN 


2158 GOSUBS726 

21690 J=1 

2176 GETAS: IFAS< >" "THEN2Z176 

2189 KS=STRSCINT (RND(1)#9) +1) 

2199 KS=RIGHTS(KS, 1? 

22908 TR=G 

2216 PRINTI"- PRESS ’"3;K%5"" KEY" 

2226 PRINT 

2239 GETTS 

2249 TR=TRt1 

2259 REM 

22668 IFTR?LIGTHENPRINT" YOU TOOK TOO LONG 
1": GOSUBS724: RETURN 

2276 ITFTS=""THEN2239 

2289 IFTS< >KSTHENPRINTTS3" I5 WRONG": GOS 
UBS726: RETURN 


2°99 IFI<1GTHENIJ=J+1:GOTO218¢9 
SGP PRINT"{CYNF +++ te eteetet ett tt+tetettrtes 


Stee teeeetteteetete” 

2319 PRINT"{YEL}YGQU MANAGED TO COMPLETE 
THE SEQUENCE..." 

2328 PRINT"YOU ARE NOW CLEARED FOR LANDI 
NG..." 

23368 GOSUBS72¢ 

2349 CO=13+INT(RND(1)¥8) 

235@ PRINT"HERE ON STATION"RS"THE COST" 
236@ PRINT"OF FUEL SUITABLE FOR THE ";S% 
2378 PRINTTAB(9)3"IS"CO"PER UNIT" 

238GH PRINT" E£CYNFFteeteeteetteeetetetretert+rte tt 
FHtPetettteteteee" 

2399@ PRINT"{PUR} YOU HAVE"WE"CREDITS" 
249@ IFWE<COTHENPRINT"SO YOU CAN’T EVEN 
AFFORD ONE UNIT":GOSUB5729:RETURN © 

2419 PRINT:PRINT"HOW MUCH FUEL DO YOU WA 
NT TO BUY" 

242@ INPUTNE 

243G IFNEXCO>WETHENPRINT"YOU DON’T HAVE 
SUFFICIENT CREDITS":GOTO241¢ 

2449 FU=FU+NE 

245@ WE=WE-COXNE 

2469 GOSUBS72a 

2478 PRINT:PRINT"YOUR TANKS NOW HOLD"FU 
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2986 PRINT: PRINT"AND YOU HAVE"WE"CREDITS 


2499 GOSUB5729 


259G RETURN 

ZS1G REM XXXKKKKKKKHKKHKK 

2524 REM FRIENDLY ALIENS 

2530 FA=FA+1: IFFA>3THENRETURN 

209498 PRINT" CCYNe tet ttttetteteteeteeteeter+etett+ 
ttttteteteetetteet" 

2559 M=INT(RND(1)*7) 

2568 IFM=STHENYS="HE’ IDANI" 

2579 IFM=1THENYS="BETA LEPOIIS" 

2589 IFM=2THENYS="GAMRA GARMA" 

2599 IFM=3THENYS="KEOIMUMI" 

2698 IFM=4THENYS="DRACONMH" 

2618 IFM=STHENYS="TUU EPSONI" 

2628 IFM=6THENYS="YYDRONICA" 

2638 PRINT"{LT GRN}YOUR NAVIGATION COMPU 
TER SIGNALS THAT" 

2649 PRINT"AN ALIEN CRAFT HAS BEEN SPOTT 


ED" 

2659 PRINT"APPROACHING YOUR SHIP...IT HA 
S NOT YET" 

2666 PRINT"BEEN ABLE TO IDENTIFY IT. IS 
IT FRIEND" 


2679 PRINTTAB(13)3;"QR FOE?" 


2689 GOSUBS729 
269G PRINT"{CYNF ttt ettteeeteteteteteteeetttett 


teeteteteetetett+” 

2760 PRINT"{GRN}COMPUTER IDENTIFIES SHIP 
ORINATES IN" 

2716 PRINTTAB(S) 5 "THE "3YS3" SYSTEN"” 
2729 GOSUBS729 

27398 PRINT"ALLIANCE NOT YET DETERMINED... 


27499 PRINTTAB(S) 5 "{WHT3}>>> STAND BY <<<" 


2739 GOSUBS726 
27468 PRINT" IL CYNF THEE EE HEE HEEHEH HEHEHE He ee ett 


FEtHEt Hee tee teeter” 

2778 PRINT"{YEL} THE ALLIANCE OF THE ";YS 
3" Is" 

2/38 GOSUBS7295 

27990 IFRND(1)>.4THEN29359 
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2890 PRINT"WITH QUR EMPIRE....ALLGW THEM 
TO BOARD" 

28198 GOSUBS729 

2829 PRINT"{KCYNFFTHE EEE HEF HE FEE HEHEHE HEH H+ t+ 


Htteteteteetettt” 


2839 PRINT"{LT RED} THE ";Y%5 "NS OFFER YO 
U EITHER" 
2349 ae ncaa gs a 


2850 PRINTTAB(6);"OR 2 - 


2868 
2376 


PRINTTAB(®9) 5 
; OXYGEN" 
GETAS: IFAS“ >" "THEN2869 


PRINTTAB(46) 5; "{OR}##CWHTS WHICH ONE 


DO YOU WANT?{OR? ##A{LT BLU?" 


2386 
23968 
29BB 


GETTS 
IFTS< > "1L"ANDTS< > "2" THENZS8SS 
PRINT"CCYN} +4++¢tttetetetettett+etttt 


F$tettettetetetetee”" 


2916 
Is! 
2920 


IT IS! 


29°38 
29468 
29°30 
29668 
29°78 
29°3C 
2998 
3GGD 
3916 
3926 
3GH3B 
384 
3958 


~2G68 
3H7G 


38388 
3OGID 
3198 
ED" 

3119 


3129 
3139 


3146 
3158 


IFTS="1"THENPRINTTAB(12)5"> FUEL IT 
€"3FU=FUtINT (RND (1) #296) +19 

IFTS="2" THENPRINTTAB(12)5 "> OXYGEN 
€"3 OX=OX+ INT (RND (1) #39) +2 
GOSUBS72@6 

RETURN 

PRINT" AGAINST THE EMPIRE...FLEE!!" 
LS=/S 

GOTOS226 

REM KKEXKKKKKKE 

REM BLACK HOLE 

FORJ=i1TO12 

PRINTTAB(J)5 "> DANGER!! <" 
FORT=1TO266°:NEXT T 
PRINTTAB(13-J)35 "> DANGER! ! 
FORT=1TO26G:NEXT T 

NEXT J 

GOSUBS726 

PRINT" {CLR}3" 

GOSUBS72965 

PRINT: PRINT 


PRINT" {WHT THE "3; S%5 " 


qu 


IS BEING SUCK 


PRINTTAB(9)3; "INTO A BLACK HOLE!" 
GOSUBS729 

PRINT" {CLRF" 

GOSUBS729 


FORK=1TO? 
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3169 
31768 


4189 
3199 
3206 
3216 
3226 
3236 
3240 


FORJ=1TO19 
PRINTTAB(J+2¥K) 53; "{OR}DRAGGING US IN 


NEXT J 

NEXTK 

PRINT" {CLR}" 

GOSUBS726 

FORJ=1TOS 

FORK=1TOS 

PRINTTAB(J)5; "ALL COMMUNICATIONS HAV 


E STOPPED!" 


32508 


32668 
32798 


30 
368% 
3388 


3319 


3326 
3338 
3349 
3350 


NEXTK 
NEAT J 
GOSUBS729 


PRINT" {€CLR3" 
GOSUB57296 


END 

REM HHH 

REM TRADING POST 

TP=TP+1 

IFTP>15THENTP=15 

PRINT" CYNFFHEHEEEEEEE HEHEHE EEF ET HEHEHE HH 


$H$tettettttetetet" 


33668 


DING 
3376 


PRINT" {YEL}YOU’RE APPROACHING A TRA 


POST PLANET" 
PRINT"{CYNF+4+¢¢+¢¢ e+e t¢¢ee¢et¢etettt 


F$¢tettetetetteeteet+" 


3388 
3396 
5 

~49G 
3485 
34916 


GOSUBS729¢ 


PRINT"{GRN3IT IS THE PLANET "3 xXS(TP 


IFTP=13STHENPRINTRND(1)#6+1 


IFTP<S >1STHENPRINT 


PRINT"{CYNFF+4444t¢¢¢¢et¢¢etteeettett 


HEHEHE EPE EE H HHH" 


2426 PRINT"{LT GRN}THE INHABITANTS OF "3 

XS (TP) 

3436 PRINT"WISH TO BUY RIEMANNIAN, AND W 
ILL SELL" 

354996 PRINT"YOU PROVISIONS, FUEL AND OXYG 
450 PRINT"{CYNF HEF EEHEEE HEHEHE EHH ete teet 


PSHE e eee e tet etete" 


34695 


GOSUBS7290 
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34798 GETAS: IFAS< >" "THENS479 

5438 PRINT" {WHTSENTER YOUR CHOICE: ": PRIN 
T 

34996 PRINTTAB(S)3;"{QR3}1 @ TO SELL RIEMAN 
NIAN" 

3590 PRINTTAB(S)3;"2 @ TO BUY PROVISIONS" 
3519 PRINTTAB(S)3;"3 @ TO BUY FUEL" 

3526 PRINTTAB(3S)35"4 @ TO BUY OXYGEN" 
3530 PRINTTAB(S)3"S @ TO CONTINUE FLIGHT 
3549 GETTS 

3550 IFT#<"1"ORTS$>"5" THENSS49 


3369 
33578 


338d 


IFTS<>"1"THENPRINT"{CCLR" 
IFTS="35" THENRETURN 
PRINT"{CYNF ttttetetettetetettete+tt+etet 


HHHEtttetetetetetet" 


3598 
3698 
36190 
3628 


3636 
36498 


IF TS="2"THENS819 
IFTS="3"THENS969 
IF T$S="4" THEN411¢ 
IFTS="1"THEN3649 


GOTO3549 
IFRI<C I THENPRINT" {WHT YOU HAVE NONE 


O SELL! !":GOSUB5726 


645 
NEW 


IFRI<1THENPRINTTAB(S); "PLEASE ENTER 
CHOICE": GOTO3549 


$6590 PRINT: PRINT"{PUR}3}YOU HAVE"RI"RIEMAN 
NIAN" 
3669 PRINT"{LT GRN}HOW MANY TON DO YOU W 


ANT TO SELL" 


3678 INPUTSE 

3689 IFSE>RITHENS679 

35698 PR=SOGtINT (RND (1) #59) 

37960 PRINT"{OR} THE TRADER OFFERS"PR"PER 
TON" 

S71G PRINT" {WHT?D0 YOU ACCEPT THIS (Y OR 
N)" 

3726 INPUTUS: IFUS< >"Y"ANDUS< > "N" THENS 729 
37306 IFUS="Y¥" THENS769 

37498 IFUS="N"ANDRND (1) >. 7THENPR=PRtINT(R 
ND(1)¥6) +3: PRINT"THEY NOW OFFER"PR: GOTOS 
716 

37308 PRINT"THEY DON’T WANT TO HAGGLE": GO 


SUBS7290: RETURN 


37608 


PRINT"IT’S.-A DEAL!" 
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3776 GOSUBS729 
3788 WE=WE+SEXPR 

379G RI=RI-SE 

3899 RETURN 

3819 REM ¥* BUY PROVISIONS ¥* 

3826 PRINT"{OR}YOU HAVE"WE"CREDITS" 

383@ Y=INT(RND(1)*9) +6 

3849 PRINT:PRINT"{YEL}THE TRADERS ARE SE 

LLING PROVISIONS" 

3859 PRINT"AT"Y"CREDITS PER UNIT" 

3868 IFY>WETHENPRINT"SO YOU CANNOT AFFOR 

D A SINGLE UNIT": GOTO3469 

3876 PRINT:PRINT"HOW AMNY UNITS DO YOU WwW 

ANT TO BUY" 

3889 INPUTAM 

3899 IFAM=@THEN3469 

3988 IFAM¥Y>WETHENPRINT"YOU CANNOT AFFOR 

D" AM: GOSUB5729: GOTO388¢ 

3919 PRINTTAB(S)$"> THE SALE HAS BEEN MA 

DE <" 

3928 GOSUB5S729 

3930 WE=WE-YxAM 

3949 PR=PR+AM 

3956 RETURN 

3968 REM *% BUY FUEL ¥* 

3978 PRINT"{WHT}YOU HAVE"WE"CREDITS" 
3988 Y=INT(RND(1)*8) +16 

3999 PRINT:PRINT"{YEL}THE TRADERS ARE SE 

LLING FUEL" 

499@ PRINT"AT"Y"CREDITS PER UNIT" 

4919 IFY>WETHENPRINT"SO THE PRICE IS TOO 
HIGH FOR YOU": GOTO3469 

4926 PRINT:PRINT"{LT RED}HOW MANY UNITS 
DO YOU WANT TO BUY" 

4936 INPUTAM 

4949 IFAM=@THEN346¢ 

4959 IFAMXY>WETHENPRINT"{WHT3YOQU CANNOT 
AFFORD" AM: GOSUB5729: GOTO4939 

4968 PRINTTAB(5);"> THE FUEL IS NOW YOUR 
S <" 

4978 GOSUB5S72¢ 

4989 WE=WE-YxAM 

4999 FU=FU+AM 


41969 


RETURN 
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4119 


4129 
9136 
4149 


REM ** BUY OXYGEN *X** 
PRINT" <CWHT}YOU HAVE"WE"CREDITS" 


Y=INT (RND(1)#6) +25 
PRINTS PRINT"{YELSTHE TRADERS ARE SE 


LLING OXYGEN" 


91356 


4169 
IGHT 


4176 


PRINT"AT"Y"CREDITS PER TANK" 

IFY >WETHENPRINT"SO YOU CANNOT BUY R 
NOW"L: GOTO3469 

PRINT: PRINT"{OR}HOW MANY TANKS DO ¥Y 


OU WANT TO BUY" 


4189 


INPUTAM 


$199 IFAM=9THEN346¢ 


4296 


IFAM*XY >WETHENPRINT" {WHT YOU CANNOT 


AFFORD"AM: GOSUBS729: GOTO4186 


42190 


EXO- 


4229 
4236 
4249 
4256 
4266 
4276 
4239 
4296 
4396 


PRINTTAB(3)"> OXYGEN IS NOW IN YOUR 
WEBS <” 

GOSUBS726 

WE=WE-Y*AM 

OX=OxX+AM 

RETURN 

REM KEKEKKKKKKKHKKKKHKKKKEKHKEE 

REM MEETING WITH ’SPACE ARK’ 
SA=SAt+1:IFSA>1THENRETURN 

FORJ=1TOS 
PRINTTAB(I#¥3) 5 "STAND...": GOSUBS72S&: 


PRINTTAB(J#¥3+5)5"...,.BY" 


4316 


4326 
4330 


434g 


GOSUBS726 

NEXT J 

PRINT: PRINT 

PRINT"{LT GRNIT SEEMS IMPOSSIBLE T 


O BELIEVE BUT YOUR" 


433560 PRINT"CENTRAL COMPUTER SAYS THAT AN 
OBJECT" 

43660 PRINT"RESEMBLING THE LEGENDARY ’SPA 

CE ARK’ OF" 

4378 PRINT"LONG, LONG AGO, IN A GALAXY F 
AR AWAY" 

94389 PRINT"{CYNF FFF ttt ete teeteetetet+ett 


Ft$t¢tteteteetteteetette” 


4398 
44599 
4919 


ON. a a 


PRINT" CYELSCOMPUTER TO CAPTAIN ";NS 
GOSUBS7296 
PRINTTAB(8) 5; "CHECKING IDENTIFICATI 
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4420 PRINT" IL CYNF ttt tte tee teetetetetetttte 
FHEttetetetetetette+e+et” 

44936 GOSUBS72¢ 

44496 PRINT" {PUR} INDENTIFICATION CONFIRME 
D. CRAFT IS THE" 

44359 PRINT"NASMYTH FOCUS, WHICH VANISHED 
268 YEARS" 

4460 PRINT"AGO IN WHAT BECAME KNOWN AS T 
HE " 

4478 PRINT"FIRST TEMPORAL DISPLACEMENT. . 


4949890 GOSUBS729 

4490 PRINT"{KLCYNF FF tt teetteteetteetteetetetttet 
HHettttetetetetetete” 

$599 PRINT" {GRNIWARNING...."3:GOSUBS72@: 
PRINT"WARNING...." 

4519 GOSUBS729 

45260 PRINT"THE NASMYTH LATER BECAME KNOW 


4593 PRINT"SPACE ARK. IT IS SUPPOSED TO 
APPEAR TO" | 
4549 PRINT"SHIPS JUST BEFORE DISASTER IS 
DUE TO" 

4559 PRINT"STRIKE THEM....": GOSUBS729 
4560 PRINT"CCYNF tet tttetetettetttett+ettt+ 
HHP ttett+ette+++e +" 

4576 PRINT"{LT RED} THE TEMPORAL FLUX ARO 

UND THE NASMYTH IS" 

9453839 PRINT"AFFECTING THE FORCE WARP HOLD 
ING OUR" 

4596 PRINT"EXHOLD OXYGEN WEB...." 

4496 GOSUBS?7296 

4619 PRINT"{CYNFFtteteetettteteetetettettertett 
HHHtHEHetetetettetett” 

4620 N=9 

4630 GETAS: IFAS< >" "THENF639 

4649 PRINT"{PUR}PRESS THE ’J’ KEY ON YOU 
R CONTROLS" 

4650 PRINT"TO ESCAPE THE TEMPORIAL FLUX. 


4669 GETPS 

46790 N=Nt+1 

4689 IFPS="J" THENS776 
4699 IFN<9PTHENTSOS69 
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$768 PRINT"YOU TOOK TOO LONG....” 

497196 GOSUBS726 

4726 PRINT" "{CYNF Fete tet eeteettetteeteeeeteeet 
Httteteteeteeeetet” 

47390 PRINT"{YEL} THE FLUX HAS CAUGHT OUR 
"Q2’ WEB!" 

47498 GOSUBS7296 

47590 OX=INT (3% (OX/4)) 

49760 RETURN 

47790 PRINT: PRINT"WELL DONE! YOUR REFLEXE 
S ARE” 

4789 PRINT"EXCELLENT, CAPTAIN “SNS 


4790 GOSUBS729 
48OG PRINT"{CYNFFtttteteetteteteetttetetetrtt 


SEtEEHet ett teeter" 

43190 PRINT"{WHTSWE CAN NOW CONTINUE ON O 
UR FLIGHT..." 

4826 GOSUBS/29 

4839 RETURN 

498490 REM KHKEKKKKKKKKHE 

4850 REM SPACE ATTACK 

$3690 AT=ATt+1: IFRND(1)<AT/7ATHENRETURN 


48790 IFAT>3THENRETURN 
488O PRINT"{CYNF ++ ttt eetttttttettettet+ettt 


Age E+ eee t tt ttt ++ (GRN}" 
78 PRINT"LKIJS 8997843": GOSUB572@¢ 


4999 PRINT"CAGTHIN "“5NS5", TIER” *S" 
49919 PRINT"SOM¥THIN%® WROSG #ITH OU SYST 
PM&. 2 e " 


4926 GOSUB5S729 

49398 PRINT"WE ARE B&*NG JAM'ED IN SOM’ oO 

DX wvy.." 

4949 GOSUBS729 

4959 PRINT"JAGMINS DYVIC¥ BHINI OP! 'ATED 
BU ALI@V" 

4969 PRINT"CIAFT %N VECIOR 9Q37-231A" 


49796 GOSUBS?7296 
49386 PRINT"{CYNF FF ett tetteteeeteetet+e terest 


HtHettetetteetteeteet+" 

49960 Y=INT(RND(1)*8) 
59960 IFY=@THENLS="LEXO”" 
VH1IG IFY=1THENLS="SABU" 


5926 IFY=2THENLS="REPI" 
IG3G IFY=3THENLS="ASTE" 
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3946 IFY=4THENLS="PRIE" 
32568 IFY=STHENLS="CONA” 
E369 IFY=6THENLS="2USI" 


38768 IFY=7THENLS="INQU" 

3989 Y=INT (RND(1)*#8) 

S898 IFY=STHENLS=L$+"TAJE" 

3196 IFY=1THENLS=L$+"LL’E”" 

3119 IFY=2THENLS=L$+"PROC" 

3126 IFY=3THENLS=LS$+ "LEAL" 

S136 IFY=4THENLS=L$+"MAPO" 

5149 IFY=STHENLS=L$+t "HERCON" 

.S158 IFY=6THENLS=L$+ "QRAL" 

2169 IFY=/7THENLS=LS+ "KOK" 

S1i7@ IFY=8THENLS=L$+"ZUCC" 

SiSG PRINT" "{LCYN} ttt tetetetetteteetetet+ete+ttt 
FHtteteteteteetetteet 

3199S GOSUBS?729 

3290 PRINT"{YEL} THE ALIEN CRAFT IS UNDER 
THE" 

3218 PRINT"CONTROL OF THE DREADED "3;L% 
52206 PRINT" "LCYNF tte ttetetteteeteeetetterttt 
FHttetteeteteetetet" 

3238 GOSUBS729 

3235 XC=RND(1) 

22490 IFXC>.PANDRISSOTHENPRINT"THE "5LS; " 
ARE HEADING": PRINT"FOR THE RIEMANNIAN HO 
LD" 

9245 IFXC>. 2SANDRI>SSTHENRI=INT(RI/2):GOTO 

3298 

32508 XC=RND(1):IFXC>.8THENPRINT"FIRE FRO 

M THEIR CRAFT HITS OUR": PRINT"EXTERNAL F 
UEL WEB!" 

V299 IFXC>. 8STHENFU=4#¥(INT(FU/S) ) :GOTOS29 

a ; 
3266 XC=RND(1):°:1FXC>.S7THENPRINT"THE "$L 

$5" LASERS STRIKE OUR": PRINT"OXYGEN WEB! 
t 

3265 IFXC>.S/7YTHENOX=7*# CINT (OX/8)) 2 GOTOS2 
ak) 

32/78 XC=RND(1):IFXC>.8THENPRINT"OH NO! T 

HE NASTY "3;L%:PRINT"HAVE SENT A ROBOT RA 
IDER TO” 

3275 IFXC>.STHENPRINT"OUR PRECIOUS PROVI 

SIONS! ";PR=3* CINT (PR/4) ) 
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3280 


PRINT"CCYNF +44 ¢F¢¢¢et¢eeettetetttetttt 


FEHHEEHE tHe tte et” 


V29PG 


33988 
331d 


T3205 


GOSUBS726 


IFRND(1)>.46THENS259 
GOSUBS729 


PRINT" {CYNFFHEEEHEFE EEE EEE HEHE THE HEHE t ett 


$F$ eetetttettetet" 


aE TET 2 


G. a es 


5349 
5350 
536g 
537¢ 
5386 
539g 
5496 
S419 
5422 
5436 
5446 
545g 
5469 
5470 
548g 


3496 
VUGD 
3I16 
IILE 
IIOG 
JI49 
JIIA 
abaya} 4) 
E" 

3965 
va ber 
a ber— 3 2] 


S85 
2I9R8 
IO9DG 


2614 
3628 


7638 


PRINT" {PURSTHE "5;L%5;" ARE RETREATIN 


GOSUBS7296 
PRINT" THE ATTACK SEEMS TO BE OVER... 


GOSUBS7265 


RETURN 

REM KHEKKHKKKKKKKKHSK 

REM INITIALISATION 
PRINT" {CLR}" 
POKES3281,90: POKES3289,4 
DIMAS (12) ,X$(15) 

PL=9 
WE=INT (RND (1) #59) +75 
FU=INT (RND (1)%¥59) +75 
OX=INT (RND(1)*¥25) +359 
RI=6 

PR=16@6-INT (RND(1)*73) 
HA=9@°: REM HOSTILE ALIENS 
RS=6:REM REFUEL STATION 
FA=@:REM FRIENDLY ALIENS 
SA=98:;REM SPACE ARK 
TP=G°3;REM TRADING POST 
AT=6;REM SPACE ATTACK 
TE=G: REM STARDATE 

PRINT" {LT GRN3PLEASE ENTER YOUR NAM 


INPUTNS 
PRINT 
PRINT" {GRN}NOW THE NAME OF YOUR SHI 


INPUTSS 
FORJ=1TO12 
READAS (J) 
NEAT J 
FORJ=1TO15 
READXS (J) 
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5649 NEXT J 

5659 RETURN 

5668 DATA" TERRA", "PEGASUS", "MIRA", "CIvi,” 
,"DELPHINUS", "CYGNUS", "PLEIDES", "HYADES" 
5679 DATA"HYDRUS", "LEPUS", "CARINA", "SPIC 
A", "ASIMOV III","GALILEO IV" 

5675 DATA"BARNARD’S REST", "PRAESEPE"”, "SA 
GAN Ix" 

S689 DATA"NEUTRINON", "SEYFERT VI", "TORUS 
K", "LEMAITRE", "MARKARIA" 

5699 DATA"LEVERRIER", "GAMOW", "HEISENBERG 
","FIZEAU", "CERENKOV" 

S788 REM XXX 

5729 REM DELAY 

5738 FOR T=1T02599: NEXT T 

5749 PRINT 

5758 RETURN 


READY. 
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THE BOXING CHAMP 


Time to square it off in the big ring. You choose the 
strength of your opponent to begin with (1 is easy, 
right up to 9, which is extremely difficult). 


The bell rings and the round has begun. You'll see the 
time in the top left hand corner, while the top right 
hand corner shows the number of rounds fought. 


To knock out your opponent, you must get his score above 
ten. Once a player has been knocked down, a count of ten 
will be begun. If the count reaches ten, then it is 
classed as a knock out. If a player gets knocked down 
three times in a round, that will also be classed as a 
knock out. 


If you knock out your opponent, then a stronger opponent 
will come to challenge you. If you beat them all, you'll 
be declared the grand champ. 


Your controls: 


I — up 

M — down 
J —- left 
K -— right 


19 REM ** BOXING X** 

26 POKES3281,15 

39 POKE6598, 255 

196 REM ** LOAD SPRITE DATA ¥* 

1196 FORX=192TO199 

1290 FORY=9T063:; READA: POKES12+X*¥69+Y, AS NE 


ATENEAT 

POKES3281, 15: V=53248: POKEV+t21,3 

131 TIS="689999" :RO=1 

135 INPUT"{CLRSENTER DIFFICULTY FACTOR(1 
=F Ss DI 

136 IFDI<1ORDI>9THENI35 

137 DD=DI:DI=-16-DI:DI=DI/19 
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149 POKEV+28, 3: POKEV+37, 8: POKEV+38,9 
156 POKEV+23, 3: POKEV+t29,3 


169 POKEV+39,9 


176 POKE2646, 269: POKE2941, 293: POKEV+t49,6 


= POKEV+2, 239! PQKEV+tS3, 


2990 PRINT" {CLR}" 


296 


216 PRINT" {HOME} ( CUR DN?{CUR DN; 


VS ONs{ BRN? 
229 PRINT" CHOME} (CUR 
{CUR DN3{CUR DN:?{CUR 
{CUR DN{CUR DN C{CUR 


{CUR DN?{CUR DN (CUR 
{CUR DN3{CUR DN}{CUR 


{GY 27 


DN {CUR 
DN3{CUR 
DN (CUR 


DN; {CUR 
DN {CUR 


DN {CUR 
DN CT CUR 
DN {CUR 


DN{CUR 
DN 3 


VS ONF{GY 23 
LU> {RVS OFF" 
239 PRINT" {HOMES T CUR DNF{CUR DNF TCUR 
"SPC (6) "{RVS ON? (BRN? {RVS OFF 3 
TRVS ONF{GY 23 


DNs 


{RVS OFF 


49 
CUR 
CUR 


CUR 
CUR 
CUR 
CUR 


RS$="{GY 
DNC CUR 
L> {CUR 
DN{CUR 
L> {CUR 
DN? {CUR 
L> {CUR 


2>:{RVS ON} {CUR 
L> {CUR DN;{CUR 
DNS{ CUR L} {CUR 
L+ (CUR DN;{CUR 
DNS{ CUR L} {CUR 
L> {CUR DN;{CUR 
DN3{CUR L3} {CUR 


DN+{ CUR 
L> {CUR 
DN;{( CUR 
L> {CUR 
DN {CUR 
LL} {CUR 
DN{ CUR 


L>6¢ 
DNC 
i> ¢ 
DNi¢ 
Lz ¢ 
DNC 
ie 


RVS OFF}" 

258 PRINT" {HOME} {CUR 
{CUR DN}"SPC(46)R% 
268 PRINT" {HOME}{CUR 
{CUR DN}"SPC(33)R% 
278 PRINT" {HOME}{CUR 
{CUR DN3{CUR DN3{CUR 
{CUR DN}{CUR DN3}{CUR 
{CUR DN}{CUR DN}{CUR 
{CUR DN3{CUR DN3{CUR 


{GY 2} {RVS OFF +s 
{RVS GN ST BLU? CRVS 


DN;{CUR 


DN {CUR 


DN {CUR 
DN {CUR 
DN {CUR 
DN3{CUR 


DN?{CUR 


DN {CUR 


DN{ CUR 
DN} {CUR 
DN{CUR 
DN;<{CUR 


DN} "SPC (6) "{RVS 


OFF 3" 


DNs 


DN 3 


DNs 
DN > 
DN 
DN? 
ON 3 


289 X=89!:Y=70:A=230: B=290G: POKEV, x: POKEVt+ 


1,Y 


281 PRINT"{HOME} {CUR DN3{CUR DN{(CUR DN 
{CUR DN} ECUR DN}{CUR DN} (PUR CCCECCE" 
282 PRINT" {HOME {CUR DN3{CUR DN?tTCUR DN? 
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{CUR DN}{CUR DN} {CUR DN3{CUR DN}{CUR DN} 
{CUR DN}Ce@CCECE" 


283 PRINT"{HOME}{CUR DN}{CUR DN3{CUR DN} 
{CUR DN}{CUR DN}{CUR DN}{CUR DN} {BRN}YO 
U":PRINT"{HOME}{CUR DN} {CUR DN3{CUR DN3¢ 
CUR DN}{CUR DN}{CUR DN} {CUR DN} {CUR DN¢ 
CUR DN3{CUR DN} (BLU}COMP" 

284 PRINT"{HOME}{CUR DN}{CUR DN}<{CUR DN} 
{PUR} @G@C@GCEC" 

285 PRINT" {HOME}"SPC(17) "{ BLU} COUNT" 

286 PRINT"{HOME}{CUR DN3{CUR DN}{CUR DN} 
{CUR DN} {REDISTAGE{CUR DN}{CUR L3<{CUR L?} 
CCUR L}{CUR L}"3DD 

287 PRINT" {PUR} {HOME}{CUR DN}{CUR DN3{CU 
R DN}{CUR DN3{CUR DN}{CUR DN} {CUR DN?<{CU 
R DN3}{CUR DN3{CUR DN}{CUR DN3{CUR DN}eCCe 
eee" 

298 GOSUBSS9O: FORT=1TO39G: NEXT: GOSUB9S ESE 
1999 REM *¥ INPUT ** . 

1993 PRINT" {HOME}<{CUR DN}{CUR DN}3<{CUR DN 
+£CUR DN}{CUR DN}{CUR DN}{CUR DN}{CUR DN 
> "SNO!PRINT"{ HOME} <CUR DN} {CUR DN3{CUR 

DN}{CUR DN}<{CUR DN}{CUR DN3}{CUR DN}{CUR 

DN}{ CUR DN3{CUR DN}{CUR DN} "3NN 

1994 PRINT" {HOME} "SPC(32) "{GY 1}ROUND#"R 
Oo : 

1995 T#(1)=RIGHTS(TIS, 2) :T#(2) =MIDS(TIS, 
3,2) 

1996 PRINT"{HOME} (GY 13TIME "STH(2)E"2 "5 
TH(1) | 

1987 IFTI#>"999199" THENSSSEG 

1918 P=PEEK (264) : IFP>283THENPOKE2649, 20 
3 

1928 IFP< 2G@3THENPOKE294G, 296 

1939 PU=G!:PO=@:P=6:M=9:PD=9 

194@ GOTO39ga 

1950 REM 

1955 GETAS 

1969 IFAS="I"THENY=Y-5: GOTO1129 

1978 IFAS="M" THENY=Y+5! GOTO1126 

198G IFAS="K" THENX=X+5! POKE2949, 290: GOTO 
1126 

1999 IFAG="J"THENX=X-5: POKE 2949, 293: GOTO 
1129 
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1G95 


11696 
1119 


1115 
1126 


1136 


IFAS=""THEN1L129 

IFAS=" "ANDRND(1)>.6THEN1S9S 

IFAS=" "THENIS5¢ 

FORT=1TO2969: NEXT 

PE=PEEK (V+3@) AND1 

PP=PEEK (V+39) AND1: IFPP=1ANDPU=1THEN 


NN=NN+12 TFNN> 1 STHENS4IS99 


1146 
11596 


1169 
1176 
1266 
12196 
15969 
1519 


01536 


1529 


1539 
1549 


1550 


01576 


1569 


1576 
1589 
2hG6B 
2912 


O2G36 


29208 


2538 
28498 


29356 


02676 


296G 


29768 
2988 


SIGH 
3H1G 
3I26 
3936 
39G4I408 
eT bet 7) 
3969 
3298 


S214 


IF X< 2SSTHENK=76 
IFY< 7O@THENY=79 


IFY>195THENY=195 

IFX>245THENX=245 

POKEV, X:POKEV+1,Y 

GOTO19g¢ 

REM *% PUNCH **% 

IFPEEK (2949) =2@3THENPO=2084: M=-8: GOT 


PO=291°:M=8 
PU=1:POKEV, X+M: POKE29499, PO 

GOTO1115 

IFPEERK (299496) =263THENPO=295:M=-sS: GOT 


PO=292:M=s 
PU=1:POKEV, X+M: POKE2ZS49,P0 

GOTO1115 

REM **%* OPPONENT PUNCH *%* 3 
IFPEEK (29641) =293THENPO=294 :M=-8: GOT 


PO=2@1:M=8 
PD=1:POKEV+2, A+M: POKE2641,P0 
GOTO329¢9 

IFPEEK (2941) =2@3THENFPO=295!: M=-8: GOT 


PO=292:M=8 
PD=1:POKEV+2,A+M! POKE2941,PO0 
GOTO329¢ 

REM ** OPPONENT ** 

IFAS XTHENA=A+5! POKE2G41, 299 
IFA>XTHENA=A-5! POKE2941, 203 
IFB>YTHENB=B-5 

IFB< YTHENB=Bt5S 

IFRND (1) >DITHEN2999 

IFRND (1) >DITHEN295¢ 
FORT=1T0199: NEXT 

GW=PEEK (V+39) AND2 
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32208 


WE=PEEK (V+39) AND2: ITFWE=2ANDFD=. THEN 


NO=NO+1: IFNO>19S9THENSSSS 


3238 
3249 
S258 
4GG66 
4901 


4616 
4925 
4GB3G 
49495 
49568 
4935 


3,2) 
4656 


TS (1) 


4937 


— 4969 


4673 
4936 
IHBMA 
IAG 1 
IH1G 


(18) 5 


5915 
3,2) 
5G16 


TS (1) 


VOL? 
IGB2EG 


MES{CUR DN3"SPC(19)" 


3O3BG 
IH4G 


IBIS 


IFWE=2THENA=At5 
POKEV+2,A:POKEV+3,B 
GOTO195¢ 

REM KHXHKKKKE 
POKE2941, 203: POKE29490, 206 
IFAS 2398 THENA=AtS 

IFB< 268THENB=BtS 
IFA>23GTHENA=A-S 
IFB>2696THENB=B-5S 
ITFA=23G9ANDB=296 THENSS9S 
TS(1)=RIGHTS (TIS, 2) > TS(2)=MIDS(TIS, 


PRINT"{HOME3 {GY AF TIME "STH(2)5"2"3 
IFTI$> "999199" THENSEaE 
POKEV+2,A:POKEV+3,B 
FORT=1TO15@: NEXT 

GoTo4s68e 

B(RO)=B(RQ) +1 

IFB(RO) =3THENSS5¢ 
FORT=1T019:PRINT"{HOME}{CUR DN3"SPC 
7 

T$ (1) =RIGHTS (TIS, 2) 2T8(2) =MIDH(TIS, 


PRINT" {HOME3 {GY 13TIME "STSBC2)5 °° "5 
IFTI$S?> "699190" THENSSHS 
IFRND(1)>.78THENA=89: Y=7O 2 FRINT" CHO 
"2; GOTO1LDSS 
FORTT=1TO39@G:NEXRT 

NEXT 

PRINT" CHOME?{CUR DNFTCUR DNS{t{CUR DN 


+€CUR DN}{CUR DN}<CUR DN} {CUR DN} C(BRNIKN 
OCK{CUR DN3{CUR L3{CUR L3}{CUR L}3O0UT" 


IB6hS 
IB/7OG 


G34 
BOB 


POKEV+21,2 
FORTT=1TOS@@: NEXT 


PRINT" CHOMESTHE WINNER” 
FORT=239TO7@8STEP-1: POKEV+2, T: FORTT= 


1TO2G: NEXT? NEAT 


J106 


FORT=299TO798STEP-1:POQKEVt3, T:FORTT= 


1TO26: NEAT: NEXT 


311¢G 


POKE2@41, 208: FORT=798TO23G: POKEV+2,T 
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*>FORTT=1TO26G: NEXT: NEXT 


V128 
MEXT: 
313d 
@ 
21490 
2496 
2461 
3416 
23420 


543g 
545¢ 
5455 
3,2) 
5456 
TS(1) 
5457 
546g 
5479 
5486 
559e 


JI 1 
JO1D 


FORT=78TO299: POKEV+3, TIFORTT=i1TO2@: 
NEXT 
POKE2941, 203: POKEV+2, 169: POKEV+3,13 


END 

REM XXKKKHKXHS 
POKE2941, 296! POKE2949, 299 
IFX>S@THENX=X-5 

IFX< SSTHENX=X+5 

IFY }7@THENY=Y-5 
IFX=8M9ANDY=79THENS5S9e 

T$(1) =RIGHTS (TIS, 2) 1 TH(2) =MIDS(TIS, 
PRINT" {HOME} (GY LI TIME "3STH(2)5"2 "3 
IFTI$>"9@9919S" THENSSAG 

POKEV, X!:POKEV+1,Y¥ 

FORT=1TO159: NEXT © 

GOTO5499 

A(RO)=A(RO) +1 

IFA (RO) =3THENSS59 
FORT=1TO1@:PRINT"{HOME}{CUR DN} "SPC 


(18)5T 


5515 

3,2) 
5516 
TH(1) 
S517 
5529 


OME {CUR DN} "SPC(19)" 


3338 
II49 


ves ber ben 


TS(1) =RIGHTS (TIS, 2) °TS(2) =MIDS(TIS, 


PRINT" {HOMES {GY L3 TIME "STSBC(2)5"2 "5 
IFTIS?> "G6G109G" THENSHSS 

IFRND (1) >DITHENA=2396: B=296G2PRINT"tH 
"3 GOTO1996 
FORTT=17TO0369°>NEXT 

NEXT 

PRINT" CHOMES (CUR DNSCTCUR DN3{CUR DN 


{CUR DNFCCUR DNIICUR DNIC{CUR DNSCCUR DN 
7{CUR DNICCUR DNC BLUSKNOCK{CUR DN} {CUR 
L3{CUR L3(CUR L;OUT" 


VI6G 
ven bes a) 
IISHh 
pas bas he 


POKEV+21, 1 

FORTT=1TO599! NEXT 

PRINT" {HOME}THE WINNER" 
FORT=79T023G: POKEV, T: FORTT=1T029: NE 


“TS NEX 


IOS 


FORT=/79OTO2900: POKEV+1, TSFORTT=17TO29: 


NEXT> NEXT 
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S618 POKE2@49, 293: FORT=239TO7SSTEP-1:POK 

EV, TI!FORTT=1TO20: NEXT! NEXT 

5628 FORT=20@TO7SSTEP-1:POKEV+1,T:FORTT= 

1TO2ZG!: NEXT: NEXT 

S638 POKE294G, 299: POKEV, 169: POKEV+1,139 

5640 DI=DI-.1:IFDI=@THENS799 

5645 PRINT" {HOME} 

5650 A=239: B=20G: POKEV+21, 3:FORT=1TO599: 

NEXT: GOTOS5SSS 

5789 REM ** YOU’RE THE CHAMP ** 

5710 POKEV+21,9:PRINT"{(CLR}" 

5728 IFRO=1@9THENPRINT"{BLU}YOU WENT FOR 

NINE ROUNDS, SO IT’S A DRAW": GOTO574¢ 

5739 PRINT"{FUR}YGU ARE NOW THE CHAMP. W 

ELL DONE!" 

5749 PRINT: PRINT: PRINT 

575@ PRINT"WOULD YOU LIKE TO GO ANOTHER 

ROUND" 

5768 INPUTAS: IFLEFTS (AS, 1)="N"THENEND 

5778 IFLEFTS(AS,1)<>"¥"THENS75@ 

578@ RUN1iI3e@ 

6999 REM ** SPRITE DATA ¥* 

6919 DATAG,9,16,9,8,84,9,41,85,9, 169,85, 

2,168,84,2,128,16,19,9,9,19,9,9,19,69,@ 

6828 DATAIG, 255,9,19, 255, 192,19,255,192, 

19,255,9,19,69,9,19,9,9,19,9,16,2,136,34 

4930 DATA2, 1469,85,9,169,85,9,49,84,9,9,1 
3 


6848 DATAD,9,16,9,8,84,9,169,35,19,169,8 
5,42,168,84,42,95,16,169,9,9,169,9,o 

6958 DATA163, 192,949,175, 249,909,175, 252,0,1 
75,252,9,175, 249,95, 163,192,9,169,9,¢ 
6968 DATA16@, 16,9, 168,84,9,41,395,9,9,85, 
G,8,84,9,9,16,9,¢ 

6978 DATAG,16,9,8,84,9,41,385,9,41,85,9,1 
68,84,9,169,16,9,163,192,9,175,249,G 
6988 DATA175,252,9,175, 252,989,175, 252,9,1 
75, 249,9,163,192,9,169,9,9,169,9,o 

6G9G DATAG2,9,16,42,168,84,19,169,85,9,1 
69,85,9,8,84,9,9,16,9 

6198 DATA4,G,8,21,32,8,85,196,8,85,196,1 
28,21,42,169,4,9,168,9,9,49,9,9,49 

6119 DATAG,15,49,9, 63, 232,9,63, 232,959,635, 
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232,8,15,49,9,9,49,9,9,49,4,9,168 
6126 DATA21,42, 169,85, 196,128,385, 196,9,2 
1,32,9,4,9,9,@ 
6138 DATA4, 9,9, 21,32,9,85, 196,128,85,186 
, 168, 21,42, 168,4,9,42,9,9,19,9,9,1@ 
614@ DATAG,3,292,9,15, 259,49, 63,259,9,463, 
259,9,15,259,9,3,292,9,9,19,9,16,19 
61589 DATAS,34,168,1,85,168,1,385,169,9, 84 
,128,9,16,9,G 
6160 DATAG,16,9,0,84,128,1,85,169,1,85,1 
68,9,84,168,9,16,19,9,9,19,9,3, 282 
6178 DATAG, 15, 259,9,63, 259,9,63,259,9,15 
,259,9,3,2092,9,9,19,8,9,19,4,9,168 
6188 DATA21,42,168,85, 196, 169,85, 196,9,2 
1,32,9,4,9,9,@ 
6198 DATAG,9,9,9,9,9,9,9,9,9,9,9,8,8,168 
,9,9,168,9,2,164,9,2,149,9,2,149 
6208 DATAZ34, 234, 132, 234, 234, 163, 234, 234 
,175,9, 234, 175, 234, 234, 175, 2349, 234,163 
6218 DATA234, 234,128,989, 2,1228,1,74,128,5, 
99,128,1,74,128,9,9,9,9 
6228 DATA42,G,9,42,128,9,16,128,9,86,128 
,9,86,128,9,18,128,9,2,171,171 
6238 DATA2Z@2,171,171, 258,171,171, 258,171 
,9,259,171,171,292,171,171,2,171,171 
6248 DATA2,128,9,2,161,64,2,165,89,2,161 
,64,9,59,9,9,9,59,9,9,9,9,9,5,o 
S999 REM ** END OF ROUND **% 
SG1G GOSUBSESE 
8915 POKE2G4G, 269: POKE2@41, 293 
8G2G X=SG!:Y=7G! A=23G: B=20G:POKEV, X: POKEV 
+1, Y:POKEV+2,A!POKEV+3,B 
SG3G RO=RO+1:TIS="GGGGIS" = NN=G! NO=G 
8931 IFRO=19THENS79¢@ 
agas FORT=1T069 

INT" {HOME}PREPARE FOR NEXT ROUND” 
8859 FORTT=1TOSS:NEXT:PRINT" {HOME} C(RVS O 
N3PREPARE FOR NEXT ROUND{RVS OFF}" 
S955 FORTT=1TOSO:NEXT!NEXT 
8956 PRINT" {HOME} {BLUIC 
OUNT 
8968 GOSUBIBBE 


S665 PRINT" {CHOME(CUR DN{CUR DNS{CUR DN 
{CUR DN}{CUR DNITCUR DNI{CUR DNFCCUR DN 
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3 ":PRINT"{CUR DN3{BLU3 COMP{CUR DN} 
(CUR L?{CUR L}<€CUR L}{CUR L} " 

8979 GOTOLBEE 

8590 REM ¥*¥ STRONGER MAN *¥% 

8591 PRINT"{HOME3{CUR DN} 

S502 FORT=1TO9:A(T)=9: NEXT 

S593 DD=DDt+t1 

8595 POKE2@49, 200: POKE2941, 203 

S518 X=8G:Y=7@G:POKEV, X:POKEVt1, Y:FOKEV+2 
,A:POKEV+3,B : 

852@ RO=1:NN=@:NO=G 

8539 FORT=1T049 

S549 PRINT" {HOME}PREPARE FOR NEXT CHALLE 
NGER” 

S559 FORTT=1TO5S@: NEXT 

856@ PRINT" CHOME}{RVS ON}PREPARE FOR NEX 
T CHALLENGER{RVS OFF3" 

8578 FORTT=1T05@: NEXT 


85389 NEXT 

S596 GOUSUBSHOO: FORT=1TOS99: NEXT: GOSUBSSS 
G 

S600 TIS="GHGGHG" 

36190 PRINT" (HOME> CBLUGSC 
OUNT 7 


S629 PRINT"{HOMES{CUR DN3{CUR DN3{CUR DN 
{CUR DNI{CUR DN({CUR DNSCCUR DNICCUR DN 
3 "SPRINT" {CUR DN3{BLU} COMP{CUR DN} 
{CUR L}fCUR Li{CUR LITCUR Li 7 

86235 PRINT" CHOME;{CUR DN CCUR DNF{CUR DN 
#{CUR DN?C(CUR DN? "DD 

S639 GOTO16S¢S 

7690 REM ** BELL ** 

PAG1G POKES4296, 15: POKES4276,0:POKES42?77, 


19: POKES4276, 172 POKES4273, 69 
9928 RETURN 


READY. 
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DETECTIVE @ 


You are Detective GQ, the man called in to solve the 
Mystery of the Murder at the Mansion. 


It happened Like this. Six guests are sharing a meal one 
evening at the Micro Mansion. The meal ends just before 
8 pm and the guests decide to spend the rest of the 
evening exploring the mansion, and to meet again just 
after midnight for a final drink before bed. 
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However, when midnight arrives and the guests re- 
assemble, there is one missing. A hasty search of the 
Mansion produces A Body in A Location: 


BETTY CRUMB'S BODY WAS DISCOVERED 
LYING IN THE SERVANTS! QUARTERS 


You are called in. You have to discover The Murderer and 
The Time At Which It Took Place. Once you've questioned 
as many of the guests as you like, you can make an 
accusation. You are only allowed to make two accusations 
per game, and if you do not succeed in discovering the 
murderer, and the time at which the murder took place, 
the computer will tell you who did the dastardly deed. 


You refer to the guests by using the first letters of 
their first names, which due to a happy co-incidence, 
are extremely easy to remember: 


A - Arthur Moment 

B —- Betty Crumb 
Caroline Forsooth 
- Derek Lockjaw 
Emma Hornswipe 
Fatty Thompson 
General Bluff 


qQnmo 
| 


You'Ll be asked if you wish to question a suspect or 
make an accusation: 


ENTER 1 TO QUESTION A SUSPECT 
OR 2 TO MAKE AN ACCUSATION 
2 4 


You have to indicate not only the person you wish to 
question (which you do, as was pointed out above, by 
entering the first Letter of their first name) but also 
the time (8, 9, 10 or 11) that you wish to know about: 


WHO WOULD YOU LIKE TO QUESTION? A 


ARTHUR MOMENT IS READY 
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WHICH HOUR DO YOU WISH TO ASK ABOUT? 8 
ARTHUR MOMENT REPLIES: 
I WAS IN THE KITCHEN 


> DO YOU WANT TO MAKE 
AN ACCUSATION (Y OR N}? N 


You have a map of the mansion, which is very useful as 
an aid to help determine who was where, at what time. 
You should make notes of where people have claimed they 
were at particular times, and who they saw in other 
rooms, to track down any discrepancies in their stories. 
A sample chart is given just before the program Listing. 


WHO *%cULe YOU LIKE TO QUESTICN? D 


DE}t}K LOCKJAW IS READY 


WHICH HOUR DO YOU WISH TO ASK ABOUT? 8 
DEREK LOCKJAW REPLIES: 


I WAS IN THE STUDY 
I SAW FATTY THOMPSON IN THE DINING ROOM 


> DO YOU WANT TO MAKE 
AN ACCUSATION (Y OR N)? N 


WHO WOULD YOU LIKE TO QUESTION? E 


EMMA HORNSWIPE IS READY 
WHICH HOUR DO YOU WISH TO ASK ABOUT? 8 


EMMA HORNSWIPE REPLIES: 
I WAS IN THE LIBRARY 
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> DO YOU WANT TO MAKE 
AN ACCUSATION (Y OR N)? N 


WHO WOULD YOU LIKE TO QUESTION? A 


ARTHUR MOMENT IS READY 


WHICH HOUR DO YOU WISH TO ASK ABOUT? 9 


ARTHUR MOMENT REPLIES: 

I WAS IN THE SERVANTS! QUARTERS 
CAROLINE FORSOOTH WAS WITH ME 
FATTY THOMPSON WAS WITH ME 


As you can see, the idea is to try and find out who is 
Lying, and therefore pin them down as the murderer. Only 
the murderer will Lie to you, and he or she will only 
lie about the particular hour in which the murder took 
place (and the Lie will be relatively consistent, at 
Least in some particulars). However, the other guests — 
although they will never Lie - are not particularly 
helpful, and will not always tell you the complete 
truth. That is, they are quite happy to tell you where 
they were at a particular hour, but are not always’ so 
forthcoming as to who was in the room with them (which 
is, I guess, understandable in some circumstances) nor 
the identity of those they saw in adjoining rooms. 


WHO WOULD YOU LIKE TO QUESTION? C 


CAROLINE FORSOOTH IS READY 


WHICH HOUR DO YOU WISH TO ASK ABOUT? 9 


CAROLINE FORSOOTH REPLIES: 
I WAS IN THE LOUNGE 
DEREK LOCKJAW WAS WITH ME 
I SAW EMMA HORNSWIPE IN THE CONSERVATORY 


55 


> DO YOU WANT TO MAKE 
AN ACCUSATION (Y OR N)? N 


Eventually you should have enough information to make an 
accusation: 


WHO WOULD YOU LIKE TO QUESTION? D 


DEREK LOCKJAW IS READY 


WHICH HOUR DO YOU WISH TO ASK ABOUT? 9 


DEREK LOCKJAW REPLIES: 
I WAS IN THE ENTRANCE HALL 
EMMA HORNSWIPE WAS WITH ME 


>» DO YOU WANT TO MAKE 

AN ACCUSATION (Y OR N)? Y 
THIS IS TRY NUMBER 1 
WHO WAS THE MURDERER? C 


WHEN DID IT HAPPEN? 10 
YES, CAROLINE FORSOOTH IS THE KILLER 


YOU'VE GOT THE KILLER, ALL YOU NEED 
NOW IS THE TIME 


Remember, you only have two guesses, so you must not 
waste them. If you fail to identify the murderer and the 
time at which the deathly deed was done, the computer 
will spill the beans: | 


WHO WOULD YOU LIKE TO QUESTION? &E 


EMMA HORNSWIPE IS READY 
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WHICH HOUR DO YOU WISH TO ASK ABOUT? 10 


EMMA HORNSWIPE REPLIES: 
I WAS IN THE DINING ROOM 


> DO YOU WANT TO MAKE 

AN ACCUSATION (¥ OR N)? Y 
THIS IS TRY NUMBER 2 
WHO WAS THE MURDERER? C 
WHEN DID IT HAPPEN? 11 
YES, CAROLINE FORSOOTH IS THE KILLER 
YOU'VE GOT THE KILLER, ALL YOU NEED 
NOW IS THE TIME 


HOWEVER, YOU'VE USED UP ALL YCUR GUESSES 


THE MURDERER WAS CAROLINE FORSOOTH 


THE KILLING TOOK PLACE AT 9 PM 


When you turn up at the mansion, you are provided with a 
map of the building, to help you clarify your thoughts: 


Ok, Detective Q@. Armed with your map and your’ razor- 
sharp mind, you must now tackle one of the most 
difficult cases of your career. 
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LOUNGE | DINING 
| ROOM 


| CONSERVATORY | PITCH BLACK | BALLROOM 
| | COURTYARD — | 

NO ONE USES | 

IT, MURDER | 


NEVER DONE 
ENTRANCE IN HERE. SERVANTS! 


HALL | | QUARTERS 


MASTER | LIBRARY | KITCHEN 
BEDROOM | 


Note that although the murderer will Lie, other guests 
may well have seen him or her in the room where it 
happened at the time of the murder, although (of course) 
the murderer will claim to have been elsewhere at_ the 
time. A chart Like the following can help you’ track 
down the killer in record time: 


8 : 9 ; 10 > 11 : 
A: KITCHEN: SERVANTS: =» Bt 
B: tl 
C: BALLR.: LOUNGE?: = + STUDY : 
D:sTuY : | :BEDRO.? : +: 


E : LIBRARY : LOUNGE : BEDROOM 


F ; DINING : SERVANTS : : STUDY? : 


ES EE GES OS SEE! ET GEE EES ES OPTS AD TS ES EE SD GS ee ae Gees Grecia ete EES GS SE ae CP GE CE GEE GEE OF? FD OE RES GES at Ge UP aa Te 


G : SERVANT : : : BALLR. : 
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Here's the listing to enable you to tackle the Awful, 
Unspeakable Crime: 


5 POKES3281,9:POKES3289,5 

19 REM DETECTIVE @ 

26 GOSUBS99:REM INITIALISE 

39 PRINT" {(CLR3{YEL}"2PRINT: PRINT 

49 PRINTG#S(MV)3;"’S BODY WAS DISCOVERED" 
59 PRINT"LYING IN THE "3RS(MP) 

6G PRINT:PRINT"{CYN}" 

78 PRINT"ENTER 1 TO QUESTION A SUSPECT" 
8G PRINT" OR 2 TO MAKE AN ACCUSATION" 
99 INPUTC 

198 IFC<>1ANDC< >2THENSS 

119 IFC=2THENS1¢ 

115 GOSUBSg9¢g 

126 PRINT"{OR}WHO WOULD YOU LIKE TO QUES 

TION" 

125 PRINT: INPUTBS 

1369 BS=LEFTS (BS, 1) 

149 FL=o 

159 IFB&=LEFT#(GS(MV),1) THENPRINT"{YEL3D 

ON’T BE SILLY! ":GOSUB126@: GOTO69 

16@ PRINT : 

178 FORJ=1TO7 

189 IFBS=LEFTS(G$(J),1)THENPRINT"{LT GRN 
+"GS(J)3" IS READY"!FL=J 

199 NEXTJ 

266 IFFL=@THENGS 

219 PRINT: PRINT 

229 PRINT"WHICH HOUR DO YOU WISH TO ASK 

ABOUT" 7 

225 INPUTB 

239 IFB<SORB>11THEN229 

249 B=B-7 

259 PRINT 

268 PRINT"{PUR}"GS(FL)3;" REPLIES: " 

279 IFFL< >MRORB< >MHTHENPRINTTAB(3)35"I WA 

S IN THE "3RS(A(FL,B)) | 

289 IFFL=MRANDB=MHTHEN7Z3@ 

298 IFFL=MRANDB=MHTHENPRINTTAB(3)3 "I WAS 
IN THE "3RS(X) 
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295 IFFL=MRANDB=MHTHENT=INT (RND(1)*7) +1: 
IFT < >MVANDT< >MRTHENPRINTGS(T)$" WAS WITH 
398 IFFL=MRANDB=MHTHEN44S 

319 REM ** SHARING ROOM ** 

328 FORJ=1TO7 

339 IFJ=FLTHEN35S@ 

348 IFA(J,B)=A(FL,B) ANDRND(1) >. 2THENPRIN 
TGS(J)3" WAS WITH ME" 

358 NEXTI 

368 REM ¥*¥ ADJOINING ROOMS ¥* 

378 IFA(FL, B)=19THENN1=9:N2=1: GOTO499 
388 IFA(FL, B) =1THENN1=19:N2=9: GOTO499 
399 N1i=A(FL,B)-1:N2=A(FL,B) +1 

498 FORJ=1T07 

419 IFA(J,B)=N1ANDRND(1)>.4THENPRINT"I S 
AW "3G8(J)5" IN THE "3RS(N1) 

429 IFA(J,B)=N2ANDRND(1)>.4THENPRINT"I S 
AW "$GH(J)3" IN THE "$R#(N2) 

439 NEXTIJ 

449 REM ¥% CHANCE FOR ACCUSATION ** 

459 PRINT:PRINT 

469 PRINTTAB(6)5"> DO YOU WANT TO MAKE" 
479 PRINTTAB(6)53"AN ACCUSATION (Y OR N)” 
48@ INPUTBS 

499 IFBS< >"Y"ANDBS< >"N" THEN4SSS 

599 IFBS="N"THENPRINT"{CLR}":PRINT: PRINT 
:GOTO119 

519 GU=GU+t1 

515 GOSUBS999 

528 PRINT"THIS IS TRY NUMBER"GU 

539 PRINT:PRINT"WHO WAS THE MURDERER?" 
S35 INPUTMS 

549 PRINT:PRINT"WHAT TIME DID IT HAPPEN" 
S45 INPUTCL 

S5S@ PRINT: PRINT 

569 FL=@ 

578 IFLEFTS(MS, 1)=LEFTS(GS(MR),1) THENPRI 
NT"YES, "3GS(MR)53" IS THE KILLER":FL=FL+ 
1 

589 IFCL=MH+7THENPRINT:PRINT"YES, IT HAP 
PENED AT"CL:FL=FL+4 

S99 GOSUB126¢ 
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6996 IFFL=STHENG/S 
6196 IFFL=1THENPRINT" YOU’ VE GOT THE KILLE 


R, ALL YOU NEED":PRINT"NOW IS THE TIME" 
628 IFFL=4THENPRINT"YOU’VE GOT THE TIME, 
BUT THE KILLER":PRINT"STILL ELUDES YOU" 
638 IFFL=@THENPRINT"WRONG ON BOTH COUNTS 
Pin 

648 GOSUB1269 

459 IFGU< 2THEN3@ 

669 PRINT:PRINT"HOWEVER, YOU'VE USED UP 

ALL YOUR GUESSES": GOTO69¢ 

679 PRINT"WELL DONE!" 


689 FRINT: PRINT" YOU’VE SOLVED THE MURDER 


699 PRINT: PRINT 
79@ PRINT" THE MURDERER WAS "5G (MR) 

716 PRINT:PRINT"THE KILLING TOOK PLACE A 
T'MH+7" PM" 

72@ END 

738 PRINTTAB(3)3 "I WAS IN THE "3RS(X) 
74@ T=INT(RND(1)%7) +1: IFT=MRORT=MVTHEN74 
@ 

758 S=INT(RND(1)*7) +12 IFS=MRORS=MVORS=TT 


HEN?YS9 

7698 IFRND(1)>./7THENPRINTGS(S)3" WAS WITH 
ME" 

7798 IFRND(1)>./7THENPRINTGS(T)3" WAS WITH 
ME" 


7898 IFX>1THENN1I=XxX-1 

7B8L IFX< 2THENSSS 

7968 T=T+1:IFT=8S8THENT=6 

8990 IFS=60RMV=60RMR=6THENSSS 

S16 PRINT"I SAW "$GS(T)5" IN THE "3RSB(N2 
) 

S29 GOTO449 


3G IFX< 1 SGTHENN2=X+1 
S31 IFX>9THENS29 


849 T=T-1:IFT=6THENT=2 
3508 IFS=2O0RMV=20RMR=2THENS2¢ 
S690 PRINT"I SAW "3;GS(T)5" IN THE "5RS(N2 


S78 GOTO44h6 


SB8G REM KKEKKKKKKKKEKKE 
3899 REM INITIALISATION 
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PSS 
91d 


P26 


935 
949 
93569 
969 


976 
93g 


99S 


PRINT" CCLR>" 
REM 


DIMA(7,49) ,GS(7) ,RB(1G) 


FORJ=1TO? 

FORK=1T0O4 

ACJ, K) =INT (RND(1)%19) +1 

NEXTK 

NEXT J 

MH=INT (RND(1)¥4)+1:REM MURDER HOUR 
MV=INT (RND(1)%#7)+1° REM MURDER VICTIM 


1996 


1919 
19298 


e 
1936 


MR=INT (RND(1)¥7)+1:REM MURDER 
IFMR=MVTHEN1I 969 
MP=INT (RND(1)¥19)+1°2 REM MURDER PLAC 


AC(MR, MH) =MP:REM PUT MURDERER IN ROO 


i WHERE MURDER TOOK PLACE 


BAG 
1956 
1966 


1976 
1986 


1996 
ROOM 
1196 
1119 
1129 
1136 
11496 
1159 
1169 
1176 
1189 
1199 
1266 


REM MOVE VICTIM FROM HOUR OF DEATH 
FORK=MHTO4 

A(MV,K) =a 

NEXTK 

X=INT(RND(1)%¥18) +1 


IFX=MPTHEN1S86: REM GIVE MURDERER A 
TO LIE ABOUT 

GU=9 

REM NAME GUESTS 

FORA=1TO? 

READGS (A) 

NEXKTA 

REM NAME ROOMS 

FORA=1T019 

READRS (A) 

NEATA 

RETURN 

DATA"ARTHUR MOMENT", "BETTY CRUMB", " 


CAROLINE FORSOOTH", "DEREK LOCKJAW" 


12190 


DATA"EMMA HORNSWIPE", "FATTY THOMPSO 


N", "GENERAL BLUFF" 


1226 


DATA" ENTRANCE HALL", "CONSERVATORY", 


"LOUNGE", "DINING ROOM" 


1230 


DATA"STUDY", "BALLROOM", "SERVANTS’ @Q 


UARTERS", "KITCHEN", "LIBRARY" 


1249 


1259 
1269 


DATA"MASTER BEDROOM" 


REMHEKKHKKKKKKKKKKEKKEK 
REM DELAY 
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1276 
1289 


IOBS 


27516 


IIG2G 


IIG3OG 
IH49 


II4S 
3O30 


~WIAI5 
~Ob6DG 


3965 
387 DG 


38/3 
383 


2985 
IGOD 


ISOS 
7196 


193 
116 


J12¢g 
J130 


FORT=1T01299: NEXTT 
RETURN 


PRINT" {CLRICHOME; {RVS ON} {RED} 


PRINT" {YEL+? 


PRINT"{RED? 

3 
PRINT: PRINT 
IFMV=1 THENSS59 
PRINT" {CORSARTHUR MOMENT" 
LFMV=2THENSS69 
PRINT"BETTY CRUMB" 
IFMV=STHENSS7S 
PRINT"CAROLINE FORSOQOTH" 
IFMV=4THENSS86 
PRINT" DEREK LOCKJAW" 
IFMV=STHENSS9S 
PRINT"EMMA HORNSWIPE" 
IFMV=6THENS196@ 
PRINT"FATTY THOMPSON" 
IFMV=7THENS119 
PRINT"GENERAL BLUFF" 


SUSPECTS 


PRINT" {CYN} @@@CCCCCCCCCCCCECCCCCCCECE 
CECCCCECCCCECCCCEE"; 


RETURN 
RETURN 


READY. 
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KLONDIKE BILL 


Klondike Bill was a famous gambler back in the days when 
paddle-steamers plied the Mississippi (well, he wasn't 
actually, ‘cos I just made him up, but it sounds 
probable). 


meee a Yi am 
pea ah 


In this game, you take the part of Klondike Bill in a 
few breath-taking rounds of poker dice. Both you and the 
computer start the game with 100 chips each: 
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Stand by, Klondike Bill... 


as -I rattle the dice... 


I have 100 chips 
and you have 100 


Your hand is dealt, and then the computer shows you the 
first two of its own cards. Based on your own judgement 
on how the rest of the computer's hand will come out, 
you are invited to place a bet: 


Your hand is: 
--> five five five two four 


*#® THREE OF A KIND #®* 


I am dealing my own hand... 
Here are the first two cards: 


--> four four 
How much do you want to bet? 23 


OK, 23 CHIPS IT IS... 


Here is my hand: 
four four three six three 


)* TWO PAIR *( 
And you win that round} 
>-> Your chips: 123, mine: 77 


Press the space bar... 


Stand by, Klondike Bill... 


as I rattle the dice... 
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The game continues in this way until either of you 
Less than nine chips: 


I have 77 chips 
and you have 123 


Your hand is: 
==> two two six two two 


<<FOUR OF A KIND>> 


I am dealing my own hand... 
Here are the first two cards: 


--> one five 
How much do you want to bet? 40 


OK, 40 CHIPS IT IS... 


Here is my hand: 
one five three six two 


DEAD HAND... 


And you win that round! 
>-> Your chips: 163, mine: 37 


Press the space Dar... 


Stand by, Klondike Bill... 


as I rattle the dice... 
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have 


Once 


I have 37 chips 
and you have 163 


Your hand is: 
--> four four five five five 


s;: THREE AND TWO 


I am dealing my own hand... 
Here are the first two cards: 


--> three four 
How much do you want to bet? 37 
OK, 37 CHIPS IT IS... 
Here is my hand: 
three four six one: four 
#> A PAIR <# 
And you win that round! 


You've beaten me, Klondike Bill 
Wait till next time! 


you're broke, you can challenge the computer 


another round or two, if your nerves will take 


Here! 


s the listing, Mr K Bills 


67 


to 
ths 


19 


REMKLONDIKE POKER 


26 REM 


39 
4g 
52 
4D 
7B 
8G 
96 
192 
119 
128 


13969 
149 


15d 
169 
wo 

199 
296 
216 
226 
236 
T OT 
2335 
2465 
2568 


268 
276 

HA 
236 
296 
388 
3168 
3265 
338 
3468 


tot 5] 
369 


37D 
38h 
39S 
4995 
T R 


GOSUB111@6:REM INTIALISE 
PRINT" <{(CLR}": POKES3281,9:POKES3289,8 
GOSUB1199 
PRINT" {CLR3":2 PRINT 
PRINT"{CYN}? I HAVE"CC"CHIPS" 
PRINT" AND YOU HAVE"HC 
HA=6 
PRINTS PRINT"{YEL}YOUR HAND IS: " 
GOSUB649: REM DEAL HAND 
GOSUBS29: REM ASSESS HAND 


GOSUB1259 
GOSUB1999:REM ANNOUNCE HAND 


HS=PO:;REM HUMAN SCORE 

PRINT: PRINT"I AM DEALING THE FIRST T 
CARDS: ": PRINT 

HA=1 

GOSUB649: REM DEAL COM. HAND 
GOSUBS29:REM ASSESS HAND 

GOSUB1259 

PRINTS PRINT" CYEL}HOW MUCH DO YOU WAN 
O BET" 

INPUTBE 

IFBE< 1ORBE SHCTHEN23S9 

PRINT: PRINT" {CYN3OK, "BE"CHIPS IT IS. 


GOSUB1259 

PRINT!:PRINT:PRINT"{LT GRN}HERE IS MY 
ND:" 

FORJ=1TO5 

ONA (J) GOSUB759, 769, 779, 789, 799, Sag 
FORZ=1TOS9@: NEXTZ 

NEXT J 

GOSUB 1259 

PRINT 

GOSUBI199@:REM ANNOUNCE HAND 


CS=PO:REM COMPUTER SCORE 
IFHS=CSTHEN4S4SS 


IFHS >CSTHENSSS 

REM KKEKEKKKKKKHKHHEKKKKKHKKKHKE 

REM COMPUTER WINS 

PRINT: PRINTTAB(6)3;"{LT RED}I WIN THA 
OUND" 
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41g 
42GB 
ABD 
44g 
459 


HC=HC-BE:CC=CCt+BE 
GOTOS396 
REMEHHHHEKEKKKHKE EEK 


REM A DRAW 


PRINT: PRINT" {LT RED?THAT ROUND WAS A 


DRAW" 


469 
ANK" 
476 
489 
499 
5} 
21G 


PRINT"WE BOTH LOSE"BE"CHIPS TO THE B 


CC=CC-BE:HC=HC-BE 

GOTOS3¢4 

REM KEKKKKHHKKEKKKEHKKKKHKKKKEKE 

REM HUMAN WINS 

PRINT: PRINTTAB(6)5;"{LT REDSAND YOU W 


IN THAT ROUND!" 


226 
ves PY 


HC=HC+BE: CC=CC-BE 
PRINT: PRINT" >@> YOUR CHIPS: "STRS(HC) 


"s MINE: "CC 


3465 
JUG 


39% 


666 


IFHC< SORCC<K 9THENSSS 
GOSUB1259 


GOSUB1199 
GOTO66 


PRINT" ------------------------------ 


IFHC=CCTHENPRINT"WE’VE BOTH BEEN KIC 
OUT OF THE GAME!!" 


IFHC>CCTHENPRINT" YOU’ VE BEATEN ME, K 


LONDIKE BILL":PRINT"WAIT TILL NEXT TIME! 


619 


IFCC>HCTHENPRINT"SO I’VE PROVED THE 


BETTER PLAYER": PRINT"AGAIN, KLONDIKE BIL 


Lien 
62D 
635 
64GB 
658 
66D 
678 


639 
69RD 


78D 
716 


729 
730 


749 


END 

RE MIB HHH IEEE 
REM DEAL HAND 

PRINT" --> "3 

FORIJ=1TOS 

ACJ) =INT(RND(1)*¥6) +1 
FORZ=1TOS@@: NEXT Z 
IFHA=1ANDJ >2THENZ19 

ONA (J) GOSUB75G, 769, 779, 789,799, 899 
NEXTIJ 

PRINT 

RETURN 

RE PIB HEBER BEEBE 
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738 
7668 
7768 
786 
796 
SHG 
319 
3829 
836 
3465 
35d 
3S6G 
NDA ¢ 
37h 
336 
SoG 
FBS 
P1G 
9205 
P36 
P49 
958 
965 
P78 


739 
9968 


1888 
1916 
1929 
E<<” 


1932 
1949 
16356 
1969 
1976 
1930 
1985 
1996 
1190 


1116 
1126 


PRINT" {PUR}0QNE "5: RETURN 
3 


PRINT" {€PUR3TWO "5; : RETURN 
PRINT" {PUR?}THREE "5 > RETURN 
PRINT" {PUR}FOUR "5 ;RETURN 
PRINT" {PURFIVE "5 ;-RETURN 
PRINT" {PUR}SIX "§ >:RETURN 


REM KKEKKKKKKKKEKKKKKKEE 

REM ASSESS HAND 

PO=G 

REM KEKKKHKKKHKKKHKKKHKKKKKKKEE 
REM **% FULL HOUSE FIVE *** 
IFA(1)=A(2) ANDA(2) =A(3) ANDA (3) =A(4)A 
4) =A(3) THENPO=15: RETURN 

REM *#** OTHERS *** 
IFA(1)=A(2) THEN PO=PO+1 
IFAC1) =A(3) THENPO=PO+1 
IFA(1)=A(4) THENPO=PO+1 
IFA(1)=A(S5S) THENPO=PO+1 
IFA(2) =A(3) THENPO=PO0t1 
IFA(2)=A(4) THENPO=PO1 
IFA(2)=A(35) THENPO=PO1 
IFAS) =A (4) THENPO=PO+1 
IFA(3) =A(3S) THENPO=PO+t 1 

IFA (4) =A(3) THENPO=POt1 
RETURN 

REM HEHKKKHKKHKKHHKHKEKHKHE 


REM ANNOUNCE HAND 
PRINT" {WHT >" 


PRINT: PRINT" ) 
IFPO=15THENPRINT">>A FULL HOUSE FIV 


IFPO=6THENPRINT"<<FOUR OF A KIND>>" 
IFPO=4THENPRIN THREE AND TWO 


IFPO=STHENPRINT"*# THREE OF A KIND" 
IFPOQ=2THENPRINT")% TWO PAIR *(" 
IFPO=1THENPRINT"#> A PAIR<#" 
IFPO=6THENPRINT"DEAD HAND..." 
PRINT"{GY 33" 

RETURN 

REM KHEHHKKEHKHKHKKKHKKHEE 

REM INITIALISATION 

REM 
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HC=19@: REM HUMAN CHIPS 

CC=199°:REM COMPUTER CHIPS 

DIMA(S) 

RETURN 

REM KHEKKKKHHKKHHKHHE 

REM DELAY 

REM 

PRINT: PRINT"PRESS THE SPACE BAR..." 
GETTS:IFTS<>" "THENI219 

PRINT" {CLRI"3 PRINT: PRINT: PRINT 
PRINT"STAND BY, KLONDIKE BILL..." 
PRINT: PRINT" AS I RATTLE THE DICE 


FORT=1TO199¢ 


NEXT T 
RETURN 
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RED SEDAN Il 


Your sponsor has provided you with five cars with which 
to prove your superiority on the road. You'll be told 
the distance you have to cover in the race, and then it 
is all up to you. 


If you manage to complete the distance successfully, 
you'LL be promoted, and a new race will begin. 


Your controls: 


I - up 

M — down 

J —- slow down 
K — accelerate 


if PRINT"{CLR}"!POKE53281,14 
26 POKE659, 255: POKES4296,15 

3@ INPUT"{BLU}LEVEL GF DIFFICULTY (1TO4) " 
sLE 

4@ IFLE<10RLE>4THENIG 

5@ PRINT"{CLR}" 

SG Ps="x x x x x x x 

x x" 

19@ REM *% LOAD SPRITE DATA ¥* 

119 FORX=192T0194 

128 FORY=8T063: READA: POKESG72+X*64+Y,AIN 
EXT!:NEXT!:ME=1 

125 EN=INT(RND(1)¥499) +199 

139 V=53248!:X=LE*59 

199 POKEV+21, 255! POKEV+29, 255: POKEV+28,2 
55:POKEV+37, @: POKEV+39, 2: POKEV+33,2 

15@ FORA=2949702947: POKEA, 249: NEXT 

168 Y=15@:AB=@: CD=G:EF=9: GH=G: 1J=@:KL=9: 
MN=9! BB=189: QW=9 

170 POKEV+4G,6 

188 JK=PEEK(V+39) AND1 

19@ PRINT" CHOME}<{CUR DN}{CUR DN}<{CUR DN} 
{CUR DN3?{CUR DN}{CUR DNC BLK“ "(Treen 


i I i a a a a 
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208 PRINT"{RVS ON}CYEL3 

3 

219 PRINT"{BLK}C(RVS ON} "UYU 
scnnnevuntanbonneneduent pyS OEE }* 

22@ PRINT"{HOME}{CUR DN}{CUR DN}{CUR DN} 
{CUR DN3{CUR DN}{CUR DN3}{CUR DN}<{CUR DN} 
{CUR DN}{CUR DN3{CUR DN}<{CUR DN}{CUR DN} 
{CUR DN3{CUR DN}{CUR DN3{CUR DN3{CUR DN3 


a a A a A A a i a Sa ie 


eon tt Woo 
5 


239 PRINT"{RVS ON} {YELL} 

3 
24G PRINT"{BLK({RVS ONY UU NNN uenennnnnn 
Vn ERS OF FR" 
2596 PRINT" {HOME} {CUR DN {CUR DNSC{CUR DN; 
{REDCAR NO@>{WHT} "ME 
260 PRINT" CHOMES {CUR DN{CUR DNC CUR DN; 
{CUR DN{CUR DNI{CUR DN} {CUR DN {CUR DN} 
{CUR DN{CUR DN3{CUR DN "RS 
276 PRINT" {HOME3 {CUR DN} {CUR DN3{CUR DN} 
"SPC (18) "DISTANCE="EN"KMS" 
3769 REM **X INPUT **¥ 


S592 PRINT" {HOME} ":PRINT" 
{HOME3SPEED: "QW¥19"KPH" 


S63 PRINT" {HOME} "SPC (28) "KMS" INT (MI) 2 IFI 
NT (MI) =ENTHENSS@g 

594 IFP1=1THENS@6 

5@5 IFA>XANDACX+1 59THENPOKES4273, 14: POKE 
54277, 196: POKES4276, 9: POKES4276, 17:P1=1 
596 IFP2=1THENSS9 

S598 IFC>XANDC< X+1 5@THENPOKES4273, 14: POKE 
54277, 199! POKES4276, 9: POKES4276,17:P2=1 
S99 IFPS=1THENS11 

518 IFE>XANDE<X%+159THENPOKES4273, 14: POKE 
54277, 199: POKES4276, 9! POKES4276,17:P3=1 
Sli IFP4=1THEN5S13 

Si2 IFG>XANDG<X+159THENPOKES4273, 14:POKE 
54277, 199: POKES4276, G@: POKES4276, 17:P4=1 
513 IFPS=1THENS15 


214 IFISKANDISX+ 1 SOTHENPOKES4S273,14:POKE 


349277,199: POKES4276,46; POKES4276,17°PS5=1 
J1S IFP6=1THENS1I? 


316 IFK>XKANDK< X+ 1LSSTHENFPOKES4S273, 14: POKE 
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34277,196)POKES4276,6:POKES4276,1i17:,P7=1 


vi? 
218 
319 
qg27/? 
I28 
33d 
335 
343 
ve bard 
sod 
378 
JSG 
39h 
GB 
O1 


IFJK 
682 
693 
6169 
640 
678 


788 
716 
7268 
738 


GETAS: LFAS=""THEN6G9 

MI=MI+@QW/3G: IFMI>SS6—9THONMI=5ag 
IFK>XANDK< X+ 208 THENPOKES 4273, 14:2 POKES 
, 187: POKES4276, 9: POKES42764, 17 
IFAS="K" THENGW=QW+1!: IFQW>25THENQW=25 
IFAS="J"THENQW=QW-2!: IFQW< STHENQW=9 
IFQW=9THENSSS 

IFAS="I"THENY=Y-8 

IFAS="M" THENY=Y+8 

IFX>269G9THENX=299 

IFX< 39THENX=39 

IFY< 1 2GTHENY=129 

IFY >BBTHENY=BB 

POKEV, X:POKEV+t1, Y 

JI=PEEK (V+39) AND1! JK=PEEK (V+398) ANDI: 
=1 THEN6999 
MI=MI+QW/3G: ILFMI >S9STHENMI=5a9 
IFQ@W=6THENS599 
IFAB=GANDRND (1) >. 9THENS@19 
IFCDESGANDRND(1)>.9THENS19¢ 
IFEF=@ANDRND(1)>.9THENS29¢ 
IFGH=GANDRND (1) >. 9THENS399 
IFIJ=G@ANDRND (1) >. 9THENS499 
IFKL=@ANDRND (1) >. 9THENS5S99 
IFAB=10RCD=10REF=10RGH=1ORIJ=10RKL=1 


THENS996 


199 
rea 8 25 
IBIS 
IGGS 
~81G 
IGLS 
IASG 
~848 
IG68 
IG/DG 
~3OFDG 
TOPS 
~166 


126 
JI13¢G 


3149 
2160 


GoTasss 

REM ¥%* POSITION CARS ** 
IFAB=@THENSS9S 

IFAB=1THENS@4g 

AB=1!A=255! B=INT(RND(1)*159) +79 
IFB>BBTHENS@19 

IFB< 1 29THENSS1G 

A=A-QwW 

IFAC STHENAB=9: A=G: B= 
POKEV+2,A:POKEV+3,B 
IFCD=@THENS189 

IFCD=1THENS149 
CD=1:C=255! D=INT (RND(1)*159) +59 


IFD>BBTHENS1996 
IFD< 1 26THENS19¢ 


c=C-QW 
IFC<STHENCD=9: C=6: D=G 
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J1/7D 
J13sd 
319d 
JI2OO 
‘3229 
3238 
3248 
32408 
3276 
3239 
ILIDG 
I3GB 


3325 
IS338 


3349 
3368 


53768 
5386 
5399 
549g 
5426 
S43 
544g 
546g 
54798 
548g 
549¢ 
5599 


JUL 
3338 
334 
IIOP 


33/768 
VI8H 


65666 
6995 


POKEV+4,C:POKEV+tS,D 
IFEF=9THENS289 

IFEF=1THENS249 
EF=1:6=255:F=INT(RND(1)¥159) +5¢ 


IFF >BBTHENS296 
IFF< L26THENS2969 


E=E-QW 
IFEX @THENEF=9: E=9: F=9 
POKEV+6,E:POKEV+7,F 
IFGH=9THEN5S389 

IFGH=1 THEN5S349 
GH=12-G=255:H=INT(RND(1)*159) +52 
IFH>BBTHENS399 

IFH< 1289 THENS 39 

G=G-QW 

IFG< @THENGH=@: G=9: H=a 

POKEV+S8, G:POKEV+9,H 
IFIJ=GTHENS438¢ 

IFIJ=1THENS449 

IJ=1:1=255: J=INT(RND(1)¥1598) +59 
IF J >BBTHENS499 

IFJ< 1 2@THENS49a 

I=I-QW 

IFI<@STHENIIJ=@: I=9: J=G 
POKEV+19, 1: POKEV+11,J 
IFKL=9THENS539 

IFKL=1THENS549 
KL=1:K=255:L=INT(RND(1)*15@8) +59 
IFL>BBTHENS599 

IFL< 1 296THENSS99 

K=K-QW | 
IFK<@THENKL=9!:K=9:L=G 
POKEV+12,K:POKEV+t13,L 

GoTOSs¢a 

REM *%* CRASH *¥ 

PRINT" CHOME}(CUR DN}{CUR DN}{CUR DN 


{REDCAR NO@OCWHTs "ME+1 


6918 
4525 
6949 
6958 


POKE294@, 242: POKEV+39, 7 

POKES4277,9@ 
POKES4276, @: POKES4278, 249 
FORT=15TOGSTEP-1:POKES4276, 129: POKE 


94273, 49: POKES4296, T: NEXT 


659695 


POKES42764.90: POKES492783,9 
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6678 POKE2G49, 2491 
69860 FORA=1TO1969: NEXT: POKEVt21, 254 
6999 ME=ME+1: IFME=STHEN61296 

19GG POKEV+t3, 19: POKEV+tS, 19: POKEVt?,16:P0 
-EV+9,19:POKEV+11, 19: POKEV+13,1¢ 
6116 POKES4276,9:POKES94278, 0: PQKE592964, 1 
3: GOTO13¢ 
6126 POKEV+t+21,9: PRINT" {CLR}" 
61340 IFINT (MI) <=EN/4THENPRINT"{CWHTsYOU O 
NLY COVERED ONE QUARTER OF THE RACE": GOT 
O07 GIS 
61496 IFINT(MI) <=EN/S3THENPRINT"{WHT3YOU O 
NLY COVERED ONE THIRD OF THE COURSE": GOT 
O07 99D 
61356 IFINT (MI) <=EN/2THENPRINT" {WHT YOU O 
NLY COVERED HALF THE DISTANCE." : GOTO/999 
6166 IFINT(MI) >EN/2THENPRINT"A VERY NICE 
EFFORT. YOU MADE OVER THE" 
61790 PRINT"HALFWAY MARK. " 
7966 PRINT: PRINT: PRINT"CRED;} YOUR SCORE I 
SS. "INT (MI¥xX) 
78198 PRINT: INPUT"ANOTHER RACE: "5; AS 
7829 IFAS="N"THENPRINT"CCER" >: END 
2G93G IFAS<>"Y" THEN?ZO1IG 
7849 POKEV+3,10:POKEVtS, 19: POKEVt?,196°P0 
KEV+9,19:POKEV+11,190:POKEV+13,19 
76530 RUN 
S409 POKEV+21,9: PRINT" {CLR}" 
SG1G6 PRINT"{WHTIWELL DONE!" 
SG20 LE=LE+1 
S930 PRINT: PRINT: PRINT" {BLU YOU WERE PRE 
VIOUSLY ON LEVEL"LE-1 
S649 IFLE=STHENPRINT: PRINT"WELL HOW ABOU 
T THAT. WE CAN’T EVEN" 
SO5@ IFLE=STHENPRINT: PRINT"PROMOTE YOU. 
YOU ARE THE WORLD’S " 
S966 IFLE=STHENPRINT"NUMBER 1. WELL DONE 
1": GOTO?SIOG 
3678 PRINT: PRINT"NOW YOU HAVE BEEN PROMO 
TED TO LEVEL"LE 
S939 POKEV+t3, 19: POKEVtS, 190: POKEVt?7,19:PO0 
KEV+9?,16:POKEV+11,10:POKEVt13,196 
SAS9 PRINT: PRINT: PRINT"HIT ANY KEY TO PU 
LL OUT OF PIT STOP." 


76 


8G95 GETAS! IFAS< >" "THENSS95 

S1GG GETAS: IFAS=""THENS19@ 

8119 PRINT"{CLR}":MI=9: GOTO125 

9490 REM ** SPRITE DATA ¥* 

9G1H DATAG,G,9,9,9,9,29,9,9,20,9,9,20,1, 
64, 20,1,64,42,178,128,42,179,169 

9928 DATA42,179, 168, 21,85, $4, 42,178,168, 
42,178,169,42,170,128,20,1,44,28,1,64 
SG3G DATA2ZG,9,9,29,9,9,9,9,9,9,9,59,9,95,9 
191992 

G49 DATAS,9,9,9,9,9,9,9,9,9,9,9,9,9,9,2 
G,9,08,9,9,9,69,9,9,255,9,8,251,24@ 

S958 DATAS, 235, 252,95, 262, 252, 3,178,176,8 
, 255, 236, 3, 234, 252,98, 255, 249,9,63,192 
9868 DATAG,9,9,9,9,9,9,9,9,9,9,59,5,9,9,@g 
9,9, 

9978 DATAS,9,9,9,9,9,9,9,9,9,9,9,5,5,9,2 
,8,9,9,9,9,9, 249,9,3,172,9,15,188,@ 

998G DATAI4, 239,9,62,171,9,14,239,9,3,25 
2,8,8,249,9,9,249,9,9,9,5,9,9,9,9,5,5,o5 
9898 DATAG,9,9,9,9,92 
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THE ORE-SEEKERS 


In this fascinating simulation, you take on the role of 
a big mining magnate, with hundreds of thousands of 
dollars at your command. 


You start the game with just under $100,000 and — to win 
the game — you have to use this money to increase it to 
$150,000. You lose if your capital falls below $70,000. 


Although the following explanation may seem pretty 
involved, you'll find that most of it will be clear once 
you see the program up and running on your screen. When 
you start the game, you'LL see this on your screen: 
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IRON = 506 QO TON ®RISING 
BAUXITE = 711 0 TON ®RISING 
COPPER = 916 O TON ®RISING 
LEAD/ZINC = 555 0O TON -FALLING 
ALUMINIUM - 550 0 TON #RISING 
MAGNESIUM = 562 O TON ®RISING 
SILVER = 783 0 TON -FALLING 


The top Line tells you have much money you have. Your 
capital drops by half a percent a week, to cover the 
overheads on your company. Below this you'LL see’ the 
Seven metals you can mine for in the game. Because Lead 
and zinc are generally found in the same ore, they are 
treated as a single metal in this game. 


Next to the name of the metal is a number. This is the 
price, in dollars, that the metal is fetching on the 
market in the current week. The next column -— ‘YOUR 
HOLDINGS' -— shows how much of that particular metal you 
have extracted from your mines, and have not sold. Of 
course, all these figures will be zero at the start of 
the game. After the holdings column comes either’ the 
word 'RISING' or 'FALLING'. This indicates the change, 
from week to week, of the price of that metal. 


You' LL discover that the prices’ do not change 
arbitrarily within a single game. One metal may rise 
Slowly throughout the entire game, another may rise 
fairly rapidly from week to week, then start to fall. 
The cost of buying a Lease for a particular mine relates 
to the market price for the metal (so it makes sense to 
buy a lease when the metal price is falling). The cost 
of working a lease is also related to the state of the 
market. Watching the development of a metaLl's price will 
indicate the best time to buy a lease, the best time to 
work it, and the best time to sell (hopefully just 
before the market for that metal peaks and starts. to 
decline). 
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IRON = 512 O TON ®RISING 
BAUXITE = 722 0 TON *®RISING 
COPPER = 932 O TON ®RISING 
LEAD/ZINC = 510 O TON -FALLING 
ALUMINIUM = 550 O TON *#RISING 
MAGNESIUM = 604 OQ TON ®RISING 
SILVER - 766 O TON -FALLING 


IRON - 518 O TON *RISING 
BAUXITE - 733 O TON SRISING 
COPPER - 948 QO TON ®RISING 
LEAD/ZINC = 465 0 TON -FALLING 
ALUMINIUM = 550 O TON ®RISING 
MAGNESIUM = 646 0 TON ®RISING 
SILVER = 749 0 TON -FALLING 


You can see, for example, that LEAD/ZINC fell for the 
first three weeks, then started rising in week four 
(and, in fact, kept .rising throughout this particular 
game). Note also that your capital is shrinking 
slightly from week to week. 


From time to time you'LL be given the option of buying 


the lease on a mine, the first step towards actually 
working the mine: 
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YOU ARE OFFERED A LEASE 
FOR ALUMINIUM FOR $ 475 
ENTER ‘Bt TO BUY IT, OR 'R! TO REFUSE 


The cost of the lease is related — quite realistically - 
to the current market price for the metal. If you 
decide to buy the lease, by entering 'B', you'Ll be 
shown this lease in the next week's computer report: 


YOU HAVE $ 97052.1 IN WEEK 5 


IRON = 530 O TON ®RISING 
BAUXITE - 755 0 TON *®RISING 
COPPER = 980 O TON ®RISING 
LEAD/ZINC = 514 O TON ®RISING 
ALUMINIUM = 550 O TON ®RISING 
MAGNESIUM = 730 O TON ®RISING 
SILVER = 715 O TON -FALLING 


YOU HOLD THE FOLLOWING LEASES: 
ALUMINIUM ONE - 5 

YOU ARE OFFERED A LEASE 

FOR COPPER FOR $ 855 


Having bought Leases, you are given the option of 
working that Lease. You'Ll see that the name of the mine 
(such as COPPER KING) is followed by a number. This is 
your assayer's estimate of how much ore remains in the 
mine. The higher the number, the more ore you are Likely 
to get out of that mine. You can return to rework’ the 
mine as many times as the number (so COPPER KING can be 
worked nine times, until it is exhausted). The number 
drops by one each time you work the mine, and_ then 
vanishes from your List of Leases when it is exhausted. 
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IRON = 536 O TON ®RISING 
BAUXITE - 766 O TON ®RISING 
COPPER = 996 O TON #RISING 
LEAD/ZINC - 558 0 TON ®RISING 
ALUMINIUM - 550 O TON ®RISING 
MAGNESIUM = 772 0 TON #RISING 
SILVER - 698 O TON -FALLING 


YOU HOLD THE FOLLOWING LEASES: 
COPPER KING = 9 
ALUMINIUM ONE <= 5 


You can only own one mine for each metal at a time (and 
will not, in fact, be offered new Leases for metals you 
already own). However, once a mine is exhausted, you'LL 


possibly be offered, in due course, a new lease for that 
metal. 


If you decide you wish to work a lease, you enter the 
first Letter of the name of the metal. Here, I've 
decided to mine for copper: 


WHICH LEASE WOULD YOU LIKE TO MINE 
ENTER FIRST LETTER OF METAL 
('N' IF YOU DO NOT WANT TO MINE)? C 
YOU WISH TO MINE FOR COPPER 
IT COSTS $ 750 TO WORK THE MINE 
PRESS ANY KEY TO MINE 

OK 
YOU MINED 43 TONS 
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The cost of mining is, as I indicated earlier, related 
to the current market value of the metal. Once you have 
extracted some ore from your mine, it is added to your 
holdings Cas you can see here for copper): 


MARKET PRICES YOUR HOLDINGS 


eon ar@moaqnre ardor @m & oc & & oo Gm aie a ce ce Cc ep 


IRON - 542 O TON ®RISING 
BAUXITE = 7T7 0 TON RISING 
COPPER = 1012 43 TON RISING 
LEAD/ZINC = 602 0 TON ®RISING 
ALUMINIUM = 550 O TON ®RISING 
MAGNESIUM - 814 O TON ®RISING 
SILVER = 681 QO TON -FALLING 


YOU HOLD THE FOLLOWING LEASES: 
COPPER KING = 8 
ALUMINIUM ONE = 5 


woeeeweoaegwewmweoeoeeaeereewoegaoa@gmoeru eee ewmwooeo eee Veo oe @e = 
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The real skill in this game comes from buying and 
working Leases at the right time, and judging the best 
time to sell. Because your capital is constantly being 
eroded by your overheads, you cannot afford to just wait 
for turn after turn until the market is at its peak (as 
you judge it) before you sell. Note that the highest 
price a metal can reach changes from game to game, so 
you will not be able to assume that the market will 
necessarily behave the same way from game to game. 


The game ends when you have either reached (or exceeded) 
your target of $150,000, or have allowed your capital to 
fall to $70,000. Here's the end of the demonstration 
game: 


YOU HOLD THE FOLLOWING LEASES: 
COPPER KING - 6. 

LEAD/ZINC LULU = 4 

ALUMINIUM ONE - 3 


WHICH LEASE WOULD YOU LIKE TO MINE 
ENTER FIRST LETTER OF METAL 
('N' IF YOU DO NOT WANT TO MINE)? N 


DO YOU WANT TO SELL ANY ORE (Y OR N) 
OK 

ENTER FIRST LETTER OF METAL NAME? C 

YOU WISH TO SELL COPPER 

YOU HAVE 50 TON 


THE CURRENT MARKET PRICE IS $ 1140 
PER TON 


HOW MANY TON DO YOU WANT TO SELL? 41 


THAT SALE IS WORTH $ 46740 
SALES COMMISSION IS $ 934 


84 


woaermraU aoa  aeToeemormreaewmwmenrnroaoqewmwqmoora@e@ oe at wo qgoee ee eae e 2 & aw 


IRON = 596 O TON RISING 
BAUXITE = 876 O TON *RISING 
COPPER = 1156 9 TON RISING 
LEAD/ZINC = 998 9 TON #RISING 
ALUMINIUM = 550 7 TON RISING 
MAGNESIUM = 1170 0 TON -FALLING 
SILVER = 528 O TON -FALLING 


YOU HOLD THE FOLLOWING LEASES: 
COPPER KING = 6 

LEAD/ZINC LULU = 4 

ALUMINIUM ONE = 3 


YOU HAVE REACHED THE TARGET OF $150000 


And here's’ the listing so you can climb down into’ the 
pit and become an ‘'ore-seeker': 


196 REM THE ORE SEEKERS 
26 GOSUB2936:REM INITIALISATION 
3G REM KKXKXKKKKKKKKE 
49 REM MAJOR LCOP 
38 PRINT"{CLRF" 
69 WE=WE+1 
7H CA=INT (99. 35*CA) /190:REM HALF PERCENT 
OVERHEAD PER WEEK 
84 GOSUB13519:REM REPORT 
99 BU=9 
196 IFCA>+149°99THENPRINT"{WHT}YOU HAVE RE 
ACHED THE TARGET OF $159,996"; END 
116 IFCA< 76HG1THENPRINT" YOU DO NOT HAVE £E 
NOUGH MONEY": PRINT"TO CONTINUE IN THIS F 
IELD": END 
1296 GOSUBS’7@O: REM OFFERED LEASE 
eye IF BU=1THENS@S 
@ R1=0 


1598 MI=¢ 
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1690 GOSUB739:REM WORK A LEASE 

176 IFMI=1THENSS 

186 GOSUB116@: REM SELL METALS 

199 IFRND(1)>.9STHENGOSUB179@G:REM STRIKE 
269 IFRND(1) >. SANDWE >4THENGOSUB1819: REM 
SETBACKS 

2190 R1=d 

2296 GOTQS9 

238 REM KXKHHHKKHKH 

249 REM METAL PRICES 

259 PRINT" {CYN3 MARKET PRICES YOUR HOL 
DINGS" 

260 'PRING*< Veg Aste see oe eS Sere SSS ee 
276 FORT=1TO? 
288 VITI=INT (CIGK(V(T) +4. 5%F(T)))/16 

2°9 IFV(T) <LOTHENF (T)=-F(T) °VC(T)=LOF1 
396 IFV(T) >UPTHENF (T)=-F(T) ©V(T) =UP-1 
319 PRINT"{ORF"MB(T)§5" -CWHTF"VITI#1GSTA 
B(18);0(T) "{OR}TON"$ TAB(S®9) § 

329 IFSGN(F (T))=1THENPRINT"{CREDF#( YELFRI 
SING" 

$25 IFSGN(F(T))<>1THENPRINT"CRED}-CYELGF 


ALLING" 
3398 NEXT T 


349 GOSUB2Z2695 

359 RETURN 

369 REM HXEKKKKKKKKEKEK 
379 REM OFFERED LEASE 

389 IFRND(1)>.4THENRETURN 
3990 GETAS: IFAS=" "THENS?S 
466 T=INT(RND(1)%7) +1 

419 VA=INT((V(T)+.5)/19) 


428 ONTGOSUB4E5G, 6469, 679, 689,699, 788,718 
439 IFR1>STHENRETURN 


449 PRINT"{PUR}YOU ARE OFFERED A LEASE" 
4590 PRINT"FOR "SMS(FL)3;" FOR S"595%VA 
4690 GETAS: IFAS< >" " THENFT69 

4790 PRINT" {GRNJENTER *B’ TO BUY IT, OR ”’ 
R’ TO REFUSE" 

4890 GETAS 

4990 IFAS<>"B"ANDAS<K > "R" THENSSS 

599 PRINTTAB(12)5 "OK" 
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5i@ IFAS="R" THENRETURN 

526 IF7.5*¥VA>CATHENPRINT" {WHT} YOU CANNOT 
AFFORD IT": GOSUB2269: RETURN 

530 BU=1 

54@ CA=CA-9.5*VA 

550 R1L=VA 

S6@ ONFLGOSUB5S89, 599, 699, 619,629, 639, 648 

570 RETURN 

58@ 11=R1: RETURN 

599 B1=R1:RETURN 

698 C1=R1: RETURN 

619 L1=R1:RETURN 

628 A1=R1: RETURN 

636 M1=R1: RETURN 

649 Si=R1i:RETURN 

65@ FL=1:R1=11: RETURN 

668 FL=2!:R1=B1: RETURN 

678 FL=3!R1=C1:RETURN 

689 FkL=4:R1=L1: RETURN 

699 FL=52R1=A1: RETURN 

798 FL=6:R1=M1: RETURN 

71@ FL=72R1=S1: RETURN 

F2A REM HHHKKHHK HHH HHH 

736 REM WORK A LEASE 

74@ IFI1+Bi+C1+Lit+Ai+Mi+S1=8THENRETURN 

75@ PRINT"{CYN}WHICH LEASE WOULD YOU LIK 

E TO MINE" 

76@ PRINT"{PUR}ENTER FIRST LETTER OF MET 

AL” 

778 PRINT"(’N’ IF YOU DO NOT WANT TO MIN 

E)" 

788 INPUTI$:FL=9 

799 IFJ$S="N"THENRETURN 

899 MI=1 

819 FORK=1TO?7 

829 IFJS=LEFTS(M%(K), 1) THENFL=K 

839 NEXT K 

84@ IFFL=9THEN7S9 

859 PRINT: PRINT"{LT GRN}YOU WISH TO MINE 
FOR "3MS(FL) 

868 IFIS="I"THENR1I=11 

879 IFJS="B"THENR1=B1 

S88 IFI$S="C"THENR1I=C1 
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B8°C 
POG 
91g 
P25 
P30 


IFJS="L"THENR1I=L1 
IFIS="A" THENR1I=A1 
IFIJS="M" THENR1=M1 
IFJS$="S"THENR1=S1 
IFR1=9THENPRINT"{WHT?YOU HAVE NO MIN 


E": GOSUB2269: RETURN 


949 REM ¥* NOTE IT COSTS MORE TO MINE MET 
AL WHICH IS RISING ON THE MARKET ¥ 


P50 
955 


IFSGN(F (FL) ) =1THENCO=75 
IFSGN(F (CFL) )< >1THENCO=45 


969 PRINT"{ORIT COSTS S$"CO*X1G"TO WORK T 


HE MINE":CA=CA-CO 

97 LX=R1 

989 R1=R1-1:I1FR1<STHENR1=@ 
999 REM 

199@ PRINT"{LT GRN}PRESS ANY KEY TO MINE 
1919 GETAS: IFAS=""THENIG1¢ 
192G PRINTTAB(12) 3 "OK" 

1938 ME=INT(RND(1)*5*¥LX) 

1949 PRINT"YOU MINED"ME" TONS" 
195@ O(FL)=O(FL) +ME 

1969 IFJ$="I"THENI1=R1 

197@ IFJ#="B"THENBI=R1 

198@ IFJ$="C"THENCI=R1 

1999 IFIJS="L"THENLi=R1 


1196 
1119 
1126 
1136 
1149 
11359 
1160 
1179 
1189 
1199 
1269 
1219 


12296 
1236 


IFIS="A" THENAI=R1 
IFIJS="M" THENM1I=R1 
IFJS="S"THENSI1=R1 
GOSUB2269 

RETURN 

REM HEKKKHKKKKKE 
REM SELL METALS 
WA=9 

FORIJ=1TO? 
WA=WAt0 (J) 

NEXT J 
IFWA=STHENRETURN 


GETAS: IFAS< >" "THEN1 229 
PRINT: PRINT" {PUR3}DO YOU WANT TO SEL 


L ANY ORE (Y OR N)" 


1246 
12359 


GETAS 
IFAS< >" Y"ANDAS<S >" N" THENI 249 
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1269 
1279 


1289 


PRINTTAB(12)5 "OK" 
IFAS="N" THENRETURN 
PRINT" {CYN?ENTER FIRST LETTER OF ME 


TAL NAME" 


1299 


1366 
1319 


13269 


133¢ 
1349 


1359 
) 


1369 


INPUTAS: AS=LEFTS (AS, 1) 

FL=9 

FORT=1TO? 
IFLEFTS(MS$(T) , 1) =ASTHENFL=T 
NEXT T 

IFFL=9THEN1289 

PRINT" {CPUR;YOU WISH TO SELL "SMS(FL 


IFO (FL) =STHENPRINTTAB(4) "BUT YOU DO 


N’T HAVE ANY": GOSUB2269: RETURN 


1376 
N" 
1389 


PRINT: PRINT" {WHT} YGU HAVE "OQ(FL) "TO 


PRINT: PRINT" {YEL}THE CURRENT MARKET 


PRICE IS S$"V(FL)I¥19"PER TON" 


139° 


PRINT: PRINT"{PUR}HOW MANY TON DO YO 


U WANT TO SELL" 


1496 


14919 
HAVE 


19296 
194932 


INPUTT: IFT< 1 THEN1499 

IFT?O(FL) THENPRINT"{WHT?YOU DO NOT 
THAT MANY" : GOTO13996 

CO=T#EV (FL) 

PRINT: PRINT"{CYNSTHAT SALE IS WORTH 


S$"CO#X1G 


14942 


1956 
1469 


1476 
1489 


135368 


SA=INT (CO*. 2) 

PRINT"SALES COMMISION IS "SA 
CA=INT (199% (CA+CO-SA/19))/196 
O(FL)=O(FL) -T 

GOSUB2266 

RETURN 

REM KEHEKKHHKKHKKKKKEK 

REM REPORT TO PLAYER 

PRINT" (CYN?=---<=—3--- +353 SS--55> 


PRINTSPC(3)5 "£YEL} YOU HAVE S$"CA*19" 


IN WEEK "WE 


13546 


1559 


1569 
157C 


PRINT" {CYN}------------------------ 


3 
GOSUB249:; REM METAL PRICES 


GOSUB2269 
IFI1I+Bit+Ci1F#LitALl+Mi+Si=GTHEN1679 
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1599 PRINT"{GRN3YOU HOLD THE FOLLOWING L 
EASES: (QR}" 

1696 IFIL>@STHENPRINT" IRON MAIDEN -"T1 
1619 IFBISS@THENPRINT"BAUXITE BEAUTY -"B1 
1626 IFCi>S@THENPRINT"COPPER KING -"Cl 
1636 IFLI>SG@THENPRINT"LEAD/ZINC LULU -"Li 
1649 IFALSSTHENPRINT"ALUMINIUM ONE -"Al 
16590 IFM1>S@THENPRINT"MAGNESIUM MARVEL -" 


1666 IFSI>STHENPRINT"SILVER SHINE -"S1 
1670 PRINT"{CYN} --- ccc creo ccc crc ccc coo 


168G RETURN 

169G REM ¥XXXX* 

1786 REM STRIKE 

1718 PRINT!:PRINT 

172@ PRINT"{WHT}THERE IS A NATIONAL MINE 

RS’ STRIKE" 

173@ WE=WE+2 

1749 GOSUB2269 

17590 PRINT:PRINT"{WHT}YOU LOSE TWO WEEKS 
> PRODUCTION" 

1769 PRINT"SO YOUR CAPITAL FALLS 3%" 
1778 GOSUB22469 

1780 CA=INT(97XCA) /198 

1799 RETURN 

1BHA REM XXXXKHKK 

1818 REM SETBACKS 

1829 T=INT(RND(1)¥4) +1 

1830 ONTGOSUB184@, 1899, 1949, 1982 

1849 GOSUB2269 

1859 RETURN 

1869 PRINT"{WHT3A SHAFT HAS COLLAPSED AT 
ONE OF":PRINT"MINES. DAMAGE IS $12,359" 
1878 CA=CA-12359 

188@ RETURN 

1899 PRINT" {WHT3A TUNNEL BLOCKAGE OCCURS 
AT ONE OF" | 

1999 PRINT"YOUR MAJOR MINES. CLEARING IT 
TAKES" 

191@ PRINT"A WEEK, SO MUCH PRODUCTION WA 
S LOST" 
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1926 
1939 
1946 
D IN 
1959 
1968 


1976 
198¢ 


CA=CA-859:WE=WEr1 

RETURN 

PRINT" {WHTS?THREE MINERS WERE INJURE 
AN" 

PRINT"ACCIDENT IN ONE OF YOUR WINES 


CA=CA-123 
RETURN 


PRINT" {WHT}YOUR INVESTMENT IN SOUTH 


ERN MINES" 


19°¢9 
LIBS 
2616 
24826 
29630 


2845 
26359 


29846 


» FLUCTUATIONS, 


28728 
2939 
2899S 


2169 
21196 


2129 
2136 


2149 
2156 


2169 
2179 


2136 
T) 


2199 
2288 
22198 
2228 
2230 
9D 

2248 
2258 
2268 
2278 
2286 


PRINT"CONTINUE TO LOSE MONEY...." 
CA=CA-19G-INT (RND (1) ¥59@) 
RETURN 

REM KHKKHHHKHHKHHHH 

REM INITIALISATION 
POKE53281,9:POKE53289,9 
PRINT"{CLR}" 

REM ARRAYS HOLD METALS, 
ORE MINED 
DIMMB(7),V(7),F(7),0(¢7) 
CA=19999 
11=@:REM 
B1=G: REM 
C1=9:REM 
Li=@:REM 
A1=@:REM 
M1=9:REM 
S1=9:REM 
FORT=1TO? 
READMS(T),V(T) 

F(T) =RND(1):2IFRND(1) >. 57HENF (T) =-F ( 


THETR VALUE 


IRON LEASE 
BAUXITE LEASE 
COPPER LEASE 
LEAD/ZINC LEASE 
ALUMINIUM LEASE 
MAGNESIUM LEASE 
SILVER LEASE 


UP=INT (1106+RND(1)*49) 

LO=INT (49+RND(1)#19) 

NEXT T 

WE=9 

DATA" TRON" , 59, "BAUXITE" ,798, "COPPER" 


DATA"LEAD/ZINC" , 69, "ALUMINIUM" ,55 
DATA" MAGNESIUM", S2, "SILVER" , 89 
REM DELAY 

FOR T=1 TO2SGS: NEXT T 

RETURN 
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SQUISHER 
AND SQUASHER 


Squisher and Squasher are two malevolent creatures who 
are hell bent on your destruction, as you move around a 
maze trying to survive for as Long as possible. As you 
make your way around the maze, you try to eat aS many 
dots as you can (by running over them). Each dot you run 
over adds to your score. You do not get points just for 
Surviving. 
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As Squisher and Squasher (disguised, in this version, as 
'$' and '?') move in towards you, they Leave a trail of 
new dots. Therefore, if you can fool them into crossing 
areas which you have already ‘eaten clean', you'll find 
more dots to eat. 


Here's the game just after it has begun (you, the _ ‘'H! 
are up in the top left hand corner, Squisher (the '?') 
is down in the bottom right hand corner, and Squasher 
('$') has moved into the second square from the _ top 
right hand corner: 


> Squisher is 1555.6 from human 
> Squasher is 1000 from human 
> Your score is 0 HiScore 357 


. # # . # , # # 

ee % ; #o. . + 

#t #..#.. UF it 

ce & Fe Ts 4 i 
o # . # . # ? 


As you can see, the program prints out ai distance 
reading, showing you how close the two Little critters 
are to you. 
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A few seconds Later, you have eaten your first few dots 
(85 points worth, in fact) and $ and ? are making their 
way towards you: 


> Squisher is 894.4 from human 
> Squasher is 806.2 frem human 


> Your score is 85 HiScore 25; 
oot eS ee ee Sta SE 
. tf . # #£ # # . # 
# . # ft # . # 
. . # ie SbhGs Ben ck 
o H# #£# # . ft # # . # 
# . oo # Se. tee. Ge oe. aE 
gr Mele je. a GE ak ce 
. # s £ « « © FP aS 
be gS ae a. es OH os en ES HE SE 
# # . . # . 2... £ io. # 
o © © 0 #€ « #€ . € # «, # 


The pece hots up, and you manage to keep on the move, 
exceeding the previous high score as you do so: 


> Squisher is 400 from human 
> Squasher is 300 from human 
>» Your score is 442 HiSeore 357 


- #t.#t#t tee ke. . 
##.#..t#.e. # , 
See he es cs, ee Se A 

° ###t.e.. #€# # . # 
# be ae Me te oe i 


‘ 2 . #.H., 
# # . # - « # # ‘ 
he # . # 
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However, 'death' is inevitable, and before Long you are 
wiped off the face of the grid: 


> Squisher is 100 from human 
> Squasher is 0 from human 
> Your score is 493 HiScore 357 


se Se © 4 ge Ser xe 
. ¢ .,.#t ft #¢ # . #., , 
# # . # . . # # # 

e 6 oF 4 % ° ° 

‘ ## # . # # # « 
# a - 2? $ # 
° a ae ° 
o # # . # a ae 0 
a a ee a 
## . . # © . # . # 
: i a we oF # # . # 
a. 2. # a IE 


Squisher & Squasher have got you! 
You scored 493 


The high score is 493 


Note that the maze changes slightly from game to game, 
and neither you, nor Squisher and Squasher can move 
through the fences (the Lines of # symbols). However, 
while you can only move up, down, right or Left, the two 
protagonists can move along diagonals if they choose. 


Your control keys are: 


A - to move up 

Z —- to move down 
,» — to move left 
» — to move right 


If you wish to modify the ‘intelligence’ of Messrs. S 
and S, play around with the figures after the RND(1)'s 
in Lines 220, 250, 330 and 360. The higher this number, 
the more ruthlessly Squisher and Squasher will come 
after you. 
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19 
26 
3G 
49 
ren) 
69 
768 
3d 
9D 


REM SQUISHER 
GOSUB75S96: REM 
GOSUB459: REM 
GOSUB299:REM 
GOSUB456: REM 


IFCi=HLANDC2= 
IFE1=HLANDE2= 


GOSUB696: REM 
GOTO4S 


& SQUASHER 
INITIALISE 
PRINT BOARD 
COMPUTER MOVES 
PRINT BOARD 
H2THEN19OS 
H2THEN1ISS 
HUMAN MOVES 


1969 PRINT" {CYN}SQUISHER AND SQUASHER HAV 


E G 


oT you!!!" 


1196 PRINT: PRINT" {GRN3YOU SCORED"SC 
1296 IFSCOHSTHENHS=SC | 
1396 PRINT: PRINT"{LT GRN}THE HIGH SCORE I 


s"H 
149 
159 
169 
176 
189 
196 


299 
219 


22g 
238 
242 
252 
26D 
278 
282 
292 
3D 
312 
32g 
33GB 
34g 
352 
36D 
372 
382 
39g 
49g 
41 
428 


S 


FORZ=1TO296990:NEXTZ 


RESTORE 
GOSUBS19 
GOTOSS 
END 


REMEKKEKKKEKKEKKEKEKKEE 
REM S & S NOVE 


X=C1:2Y=C2 


IFRND (1) >.7THEN2S59 
IFC1>HiITHENC1=Ci-1 
IFC1i<H1iTHENC1=Citl 
IFRND(1)>.75THEN289 
IFC2>H2THENC2=C2-1 
IFC2<H2THENC2=C2+1 


M=A(C1,C2) 


IFM=720RM=360RM=35THENC1=X: C2=Y 


A(X, Y)=46 
A(C1,C2)=63 
X=E1!:Y=E2 


IFRND(1)>.7THENS69 
IFE1>H1iTHENEI=E1-1 
IFE1“H1ITHENE1=E1i+1 
IFRND(1)>.75THENS9S 
IFE2 >H2THENE2=E2-1 
IFE2<H2THENE2=E2+t1 


M=A(E1,E2) 


IFM=720RM=630RM=S35STHENE1=X: E2=Y 


A(X, ¥) =46 
A(E1,E2)=36 
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43g 
449 


456 
4659 


476 
475 


RETURN 
REMEHKKKHKHKKHKKKEHK HE 


REM PRINT BOARD 
PRINT" {CLR3"2PRINT: PRINT 


PRINT"{YEL}> SQUISHER I5"5 
PRINTINT (19666*SQR ((H1-C1)%#(H1-C1)+(H 


2-C2)¥(H2-C2)))/16" FROM HUMAN" 


4380 
485 


PRINT" {YEL3> SQUASHER IS"3$ 
PRINTINT (1996G#SQR ((H1-E1)%(H1-E1)+(H 


2-E2)*# (H2-E2)))/16"FROM HUMAN" 


499 


PRINT: PRINT"{CYN? >YOUR SCORE IS"SC 


IFHS?STHENPRINT"{LT BLU HISCORE"HS 
PRINT: PRINT: PRINT 

FORC=1TO1i2 

FORB=1TO12 


IFCHRS(A(B,C))="H" THENZS="{YEL;" 
IFCHRS(A(B,C) )="S" THENZS=" (WHT >" 
IFCHRS(A(B,C))="?" THENZS=" (WHT 3" 
IFCHRS(A(B,C))="." THENZS="{LT GRN;>" 
IFCHRS(A(B,C) )="#" THENZS=" ({RED?>" 
PRINTZS$3; TAB(7) CHRS(A(B,C))5" "§ 
NEXTB 

PRINT 

NEXTC 

RETURN 

REMEKXKKEKKEKEKEKEHEHHEEH 


REM HUMAN MOVES 
GETAS: IFAS=""THEN619 


REM 

REM 

G=Hi:F=H2 

A(H1,H2) =32 

IFAS=", "THENH1i=H1-1: IFH1=@THENH1=1 
IFAS=".. "THENH1=H1it+1: IFHL=1L3THENH1=12 
IFAS="A" THENH2=H2-1:3 IFH2=@THENH2=1 


IFAS="Z" THENH2=H2+13 IFH2=13THENH2=12 

IFA(H1,H2) =3SSTHENH1=G: H2=F 7 
IFA(H1,H2) =46THENSC=SCt17 

A(H1,H2)=72 

RETURN 

REMKXXKKKK KKK HHI 


REM INITIALISE 
PRINT" {CLR " 
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7/76 
788 
79S 


36d 
81¢ 


8295 
830 
349 
350 


369 
37a 


330 
SOS 
PGS 
91G 
925 
PSG 
P4e 
1))) 
958 
P69 
9728 
939 
99D 
19939 
1G1G 
1929 
1936 
19649 
193568 
196496 
1976 


19389 
19°9 


POKES3281,9!POKE5328G, 19 

REM 

HS=@:REM HIGH SCORE 

DIMA(12, 12) 

H1=1:H2=1:REM HUMAN START 
Ci1=12:C2=12!:REM SQUISHER START 
E1=12:E2=1:REM SQUASHER START 
FORB=1T012 

FORC=1TO12 

A(B,C)=46!REM ’.” 

NEXTC 

NEXTB 

FORB=1TO54 

READC,D 

A(C,D)=35!:REM °#? 

NEXTB 

FORT=1TO25 

ACCINT (RND (1) ¥12+1)), (INT(RND(1)¥12+ 
=46 

NEXTT 

A(H1,H2)=ASC("H") 

A(E1,E2)=ASC("#") 

A(C1,C2)=ASC("?") 

SC=9 

RETURN 
DATA3,1,19, 
DATA1G,2,2,3;, 
DATAS,4,5,8,1,5; 
DATAS,5,9,5,19,5, 
DATA1,6,3,6,5,6,1 
DATA4S, S,9,8,19,8,11,8,7539,;12,9 
DATA1, 19, 2,19,19,19,5,19,7,19,12,19 
DATAS, 11,7,11,9,11,194,11,12,11 
DATA2, 12,3,12,4,12,5,12,11,12,12,12 


“= 


READY. 
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Here's a program which will get your brain in a sweat, 
as it tests your powers of deduction...and map-making. 


The wily old magician has trapped you in an 
house which is positively littered with magical and 


abandoned 


valuable items. To secure your freedom, you must 
transport six different objects into the store room. 
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Easy, you say, until the magician points out the true 
nature of his test. The house is built Like a maze, and 
you do not yet have a map. You have to try and work out 
the ground plan as you go along. You do not even’ know 
where the store room is. To complicate matters further, 
you can only carry one thing at a time. Although you can 
drop any of the objects if you choose, you cannot’ drop 
them in a room which already contains one object. 


Sounds complicated? It is, but the satisfaction you'Ll 
experience when you solve the maze and complete the task 
set by the magician will make it more than worthwhile. 

The program understands the words you type in (after a 


Limited fashion) and can carry out your wishes. Here's 
how the program begins: 


THIS IS MOVE 1 
YOU ARE IN THE LIBRARY 


THERE ARE EXITS TO THE 
EAST 


THE ROOM HOLDS A WILLOW WAND 
YOUR ARMS ARE EMPTY 


WHAT DO YOU WANT TO DO? GO EAST 


As you see, you type in your instructions in the form of 
two words, such as those used here: GO EAST 


Moving east, as instructed, you enter the Audience 
Chamber: 
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THIS IS MOVE 2 
YOU ARE IN THE AUDIENCE CHAMBER 
THERE ARE EXITS TO THE 
SOUTH EAST WEST 
THE ROOM HOLDS A BLACK ACONITE 
YOUR ARMS ARE EMPTY 
WHAT DO YOU WANT TO DO? GET BLACK 
Here you see a 'black aconite'’, and decide to pick it 
up, which you do with the command GET BLACK. In fact, 
only the first three letters are needed, so GET BLA 
would have worked as well (and you could have typed in 
GET BLACK ACONITE if you really wanted to do so). 
If you are sensible, you'Ll be making a map as you work 
out the relationship of the rooms to each other, so you 


can move through the maze with growing confidence. 


You have picked up the black aconite: 


THIS IS MOVE 3 
YOU ARE IN THE AUDIENCE CHAMBER 
THERE ARE EXITS TO THE 
SOUTH EAST WEST 
YOU ARE CARRYING A BLACK ACONITE 


WHAT DO YOU WANT TO DO? GO EAST 
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You soon discover your physical Limitations as you try 
to carry two objects at once: 


THIS IS MOVE 5 
YOU ARE IN THE GLOOMY TURRET 
THERE ARE EXITS TO THE 
SOUTH WEST 
THE ROOM HOLDS A GOLD PIECE 
YOU ARE CARRYING A BLACK ACONITE 


WHAT DO YOU WANT TO DO? GET GOLD 
YOU CAN ONLY CARRY ONE THING AT ONCE 


So, you decide to drop the aconite: 


THIS IS MOVE 6 
YOU ARE IN THE GLOOMY TURRET 
THERE ARE EXITS TO THE 
SOUTH WEST 
THE ROOM HOLDS A GOLD PIECE 
YOU ARE CARRYING A BLACK ACONITE 
WHAT DO YOU WANT TO DO? DROP BLACK 


THIS ROOM ALREADY 
HOLDS A GOLD PIECE 


Even that is not allowed! Soon, however, you come to the 
store room: 
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THIS IS MOVE 8 
YOU ARE IN THE STORE ROOM 


WHICH HOLDS: 
NOTHING 


THERE ARE EXITS TO THE 
EAST 
YOU ARE CARRYING A BLACK ACONITE 


WHAT DO YOU WANT TO DO? DROP BLACK 


THIS IS MOVE 9 


YOU ARE IN THE STORE ROOM 
WHICH HOLDS: 
BLACK ACONITE 


THERE ARE EXITS TO THE 
EAST 
YOUR ARMS ARE EMPTY 


WHAT DO YOU WANT TO DO? GO EAST 


After much wandering about and carrying, you find the 
store room is becoming gratifyingly full: 


THIS IS MOVE 33 


YOU ARE IN THE STORE ROOM 
WHICH HOLDS: 

BLACK ACONITE 

GOLD PIECE 

SHINING EMERALD 

GLOWING ARTHAME 
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THERE ARE EXITS TO THE 
EAST 


YOUR ARMS ARE EMPTY 


WHAT DO YOU WANT TO DO? WEST 
ONLY GHOSTS CAN MOVE THROUGH WALLS 


However, this still does not give you supernatural 
powers. Finally, after sixty moves, you succeed: 


THERE ARE EXITS TO THE 
EAST 


YOU ARE CARRYING A HEMLOCK POTION 


WHAT DO YOU WANT TO DO? DROP HEM 
0 OBJECTS TO GO 


YOU'VE DONE IT! 


YOU GOT 6 OBJECTS INTO THE STORE ROOM 
BLACK ACONITE 
GOLD PIECE 
SHINING EMERALD 
GLOWING ARTHAME 
PAPYRUS INCANTATION 
HEMLOCK POTION 
IT TOOK YOU 60 MOVES 


The computer wilt reject any input from you that it does 
not understand. To acquire an object, you tell the 
computer to GET or TAKE it, and to get rid of anything, 
you either DROP it or PUT it. To give up (as if you 
would!}, enter QUIT. GO, followed by NORTH, SOUTH, EAST 
or WEST will move you in the direction of your choice. 
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Here's the Listing so you can take on the _ challenge 
posed by the magician: 


19 REM MAGICIAN’S MAZE 

26 GOSUB169@: REM INITIALISE 

39 FORY=1TO1996: NEXTY 

46 PRINT"{CLR3"2 PRINT: PRINT 

34 MOVE=MOVE+1 

66 PRINTTAB(2+RND(1)¥6)3 "{YEL3 THIS IS MO 
VE "MOVE 

76 PRINT: PRINT"{QR}YOU ARE IN THE ";NS(R 
QO) 

SO IFRO< >1THEN169 

9G FLAG=9 

1966 PRINT" {GRN3WHICH HOLDS: ” 

116 FORZ=1TOSs 

126 IFPS(2Z)<>""THENPRINTPS(2) >FLAG=1 


136 NEXTZ 

1496 IFFLAG=@THENPRINTTAB(4) 3; "NOTHING" 
156 PRINT 

169 PRINT: PRINT" {PUR} THERE ARE EXITS TO 
THE" 


178 PRINTTAB(7); 

18 IFA(RO,1)<>@THENPRINT"NORTH "3 

199 IFA(RO,2)<>@THENPRINT"SOUTH "3; 

264 IFA(RO,3)<>@THENPRINT"EAST "3 

216 IFA(RO,4)<>@THENPRINT"WEST" 

22G PRINT:PRINT 

239 IFROX >1ANDOS(RO)<>""THENPRINT"{LT RE 
D}THE ROOM HOLDS A "30%(RO): PRINT 

249 IFMS<>""THENPRINT"{CYN} YOU ARE CARRY 
ING A "5M 

259 IFM$S=""THENPRINT"{LT GRN} YOUR ARMS A 
RE EMPTY" 

268 GOSUB39G 

27G GOTO3S 

ZED REMKKKK KKH HHH IH 

299 REM INPUT 

39@ PRINT: PRINT"{LT BLU}WHAT DO YOU WANT 
To po"; 

318 INPUTES 

328 IFLEN(ES) <7THENES=ES+" ":GOTO32G 

339 FS=LEFTS(ES, 3) 
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3499 IFFS="QUI" THENS6S 

359 IFFS="GO "THENFS=MIDS(ES,4,3) 

369 IFFS="NOR"ORFS="SOU" ORFS="EAS"ORFS=" 

WES" THENGOSUB449: RETURN 

37H Z=1 

388 IFMIDS(ES,Z,1)=" "THENGS=MIDS(ES, Z+1 
,3)!GOT0429 

398 IFZ<LEN(ES) THENZ=Z+1:GOTO389 

49@ PRINT"I DON’T UNDERSTAND ";E% 

419 RETURN 

420 IFFS="GET"ORFS="TAK" THENGOSUB699: RET 

URN:REM *GET’? OR ’ TAKE’ 

438 IFF%="PUT"ORF#="DRO" THENGOSUB68@:! RET 
URN:REM *PUT’ OR ’ DROP’ 

449 GoTO4ge 

ASG REMHEHHKHHHHNHH HHH 

468 REM MOVE 

470 FR=LEFTS(FS, 1) 

4898 IFFS="N" THEN5S39 

499 IFFS="S"THEN5S59 

599 IFFS="E"THENS7@ 

5i@ IFA(RO,4)=@THENPRIWT"GQNLY GHOSTS CAN 
MOVE THROUGH WALLS": RETURN 

52@ RO=A(RO,4) : RETURN 

53@ IFA(RO,1)=@THENPRINT" THERE IS NO EXI 

T THAT WAY"!:RETURN 

549 RO=A(RO, 1) : RETURN 

559 IFA(RO,2)=@THENPRINT"THAT’S A SGLID 
WALL": RETURN | 

569 RO=A(RO, 2) : RETURN 

S78 IFA(RO,3)=9THENPRINT"THAT IS IMPOSSI 
BLE! "RETURN 

58@ RO=A(RO, 3) 2: RETURN 

SOG REMIEHHH HHI HHH HHH IH HHH K HH 

698 REM GET OBJECTS 

619 IFRO=1THENRETURN 

628 IFLEFTS(G%, 3) < (LEFT#(O%(RO),3) THENPR 
INT"IT IS NOT IN HERE": RETURN 

638 IFMS<>""THENPRINT"YOU CAN ONLY CARRY 
ON THING AT ONCE"!:RETURN 

649 MS$=0S (RO) 

650 o8(RO)="" 

669 RETURN 

OFD REMERON 
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686 REM PUT THINGS DOWN 

6°99 IFMS=""THENPRINT"YOU’RE NOT CARRYLNG 
IT": RETURN 

79698 TFRO=1THEN?S@& 

7106 IFOS(RO)<>""THENPRINT" THIS ROOM ALRE 

ADY":PRINT"HOLDS A ";0%(RO) : RETURN 

728 OF (RO) =MS 

7398 Ms="" 

7498 RETURN 

7398 PLACE=9: FLAG=9 

768 FORZ=1TO6 

776 YTFPLACE=1THEN?9S 


789 IFPS(2Z2)=""THENPS(Z) =MS2 PLACE=1:M$="" 
79G IFPS(2Z)<>"" THENFLAG=FLAG+1 
SOG NEXTZ 


818 IFFLAG=@THENPRINTTAB(8) 3 "NOTHING" 

82G PRINT6-FLAG"OBJECTS TO GO" 

838 FORI=11T079@: NEXTI 

849 IFFLAG=6THENS79:REM END OF GAME, ALL 
OBJECTS LOCATED 

854 RETURN 

BOD REMIX 

876 REM END OF GAME 

888 PRINT: PRINT" YOU’ VE DONE IT!” 

S9G PRINT:PRINT"YOU GOT 6 OBJECTS INTO T 
HE STOREROOM" 

99G FORZ=1TOS 

918 IFPS(Z)<>""THENPRINTTAB (2) 3 P%(Z) 

928 NEXTZ 

938 PRINT"IT TOOK YOU"; 

949 PRINTMOVE "MOVES" 

958 END 

96 PRINT:PRINT"I DID NOT THINK YOU WERE 
A QUITTER!" 

978 PRINT"YOU SURVIVED FOR"; 


98q GOTO94¢ 
PID REMHEKHH HHH HH HHI HHH KH 


1999 REM INITIALISATION 

192@ PRINT"{CLR}"2 POKE53281, 9: POKE5S328¢@, 
g 

1938 DIMA(9,4),NS(9) ,0%(18),PH(9) ,M(S) 


1946 RO=INT(RND(1)%#8)+2:REM STARTING ROO 
m 


196359 FORIJ=1TO9? 
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1969 
1976 
193869 
1996 
1199 
1119 
1129 
11390 
1149 
1159 
1169 
1176 
1189 
11°¢ 
IED 

1299 


1219 
1229 


1239 
1249 
1259 
1269 
1279 


ARBLE HALL", 


1275 


T’S STUDIO", 


1289 
ae 
1285 


»"DIAMOND RING", 


1286 
1296 


NEWT’ 


1295 


ONITE", 


1296 


ACLE” 


139¢ 


1319 
1329 


13390 
13465 


1323 


"SHINING EMERALD", 


READNS(J):°:REM NAME OF ROOM 

NEATIJ 

FORJ=1TO18S 

READOS(J) 

NEXT J 

REM DISTRIBUTE OBJECTS 

REM MOSES/OAKFORD SHUFFLE ROUTINE 
FORJ=18TO1L1ISTEP-1 
Z=INTCRND(1)%J) +1 

MS$=-O0% (2) 

OS (2) =~O8(J) 

OS (J) =MS 

NEXT J 

MS=""SREM THIS IS OBJECT BEING CARR 


MOVE=9 
FORJ=1TO9 
FORK=1TO4 
READA(J,K) 

NEXTK 

NEXTJ 

RETURN 
DATA"STORE ROOM", "GLOOMY TURRET", "M 
"LIBRARY", "AUDIENCE CHAMBER" 
DATA"MASTER BEDROOM", "STUDY", "ARTIS 
"MUSICIAN’S QUARTERS" 
DATA"BROKEN CANDLESTICK", "GOLD PIEC 
"BRONZE STATUE” 
DATA"SILVER CHALICE", "MIGHTY SWORD" 
"CRYSTAL GOBLET" 
DATA"SHADOW BOWL" 

DATA"MYSTIC SCROLL", "WILLOW WAND", " 
S TAIL", "HEMLOCK POTION" 
DATA"PAPYRUS INCANTATION", 
"GLOWING ARTHAME" 
DATA"GLASS FRAGILUS", 


"BLACK AC 
"POWERFUL PENT 


DATAS,4,2,9:REM 
DATAS, 6,9, 1: REM 
DATAS,9,7,9:REM 
DATAS,9,5,9!:REM 
DATAS,7,6,4:REM 


Barnes 359,9,53: REM 
ATAS, .8, 3: REM 


ROOM 
ROOM 
ROOM 
ROOM 
ROOM 
ROOM 
ROOM 


NQ US WN e& 
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1378 DATAG,@,9,7:REM ROOM s 
1388 DATA3,9,9,8:REM ROCM 9 


READY. 


The names of many of the contents of the rooms came from 
the book The Magicians, by James Gunn (Methuen 
Paperbacks Ltd., London, 1980). 
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CPU PRISONER 


Your Commodore 64 has imprisoned you within its central 
processing unit. When you run the program, you'll see 
yourself in a 3D room with doors facing in various 
directions. Can you find the room which will allow you 
to squeeze through the keyboard to safety? 


Your controls: 


I - up 

M — down 
J —- left 
K -— right 


1@ POKE53281,9:POKE53289, 2 

2G PRINT"{CLR}" 

38 POKE659, 255 

19@ GOSUB7999: GOSUBS9gg: GOSUBS 99g 

119 GOSUB4gag 

128 IFRO=36THENPRINT"{CLR}C ONGRAD 
ULATIONS!!!" 

125 IFRO=S36THENPRINT:PRINT:PRINT"YOU FOU 


ND THE EXIT! ":END 
136 GOTO11¢ 


AGBG REMEKHKKKKKKHKKKKKKHKKKKKEKKEK 

49196 REM*XXXGET PLAYER COMMANDXX**¥ 

FGD2GD REMEKKKKKKKKKKHEKKKEKKKEKKEKHEEE 

4929 PRINT"{CHOME? (CUR DN3 

46390 GETZS: IF2S$=" "THENSS39 

9971 IFZS="J"ANDX=8SANDY=1463ANDA(RO, 4) <> 
STHENRO=A (RO, 4) : GOSUB4899: RETURN 

4972 IFZS="K"ANDX=245ANDY=163ANDA (RO, 3) < 
>STHENRO=A (RO, 3) : GOSUBS8S99: RETURN 

4973 IFZS="T"ANDK=165ANDY=15S3ANDA (RO, 1)< 
>STHENRO=A (RO, 1) : GOSUBS8699: RETURN 

99749 IFZS="M" ANDY=19°3ANDA (RO, 2) < SSOTHENRO 
=A(RO,2) : GCOSUB4896 : RETURN 

4930 IFZS$="T"ANDY=153ANDA (RO, 1) =STHENS14 
[%] ; 
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IFZS$="M"ANDY=19FS3ANDA (RO, 2) =OTHENS14 


IFZ2$="J"ANDX=835ANDA (RO, 4) =GTHENS149 
IFZ$="K"ANDX=24S5ANDA (RO, 3) =STHENF14 


IFZ$="I" THENY=Y-106: POKE2940, 194 
IFZS="M" THENY=Y+192 POKE2949,192 
IFZ$="K" THENX=%+192 POKE2949, 193 
IFZ$="J" THENX=X%-19: POKE2949,192 
IFY< LS3STHENY=153 
IFY>1LPFS3THENY=193 

IFX< 65ANDY=193THENX=65 

IFX< 75AQNDY=183THENX=75 

IFX< S5ANDY=173THENX=85 

IFX< 1SSANDY=153THENX=195 
IFX>255ANDY=193THENX=255 

IFX >245ANDY=183THENX=245 
IFX>235ANDY=1L73THENX=235 
IFX>215ANDY=153THENX=215 

POKEV, X:POKEV+t1,¥Y 

RETURN 

PRINT" {HOME}{CUR DN} 

RETURN 

REM 

IFX=S5THENX=245: GOTG4S9¢ 
IFX=245 THENX=85: GOTO4999 
IFY=153ANDX=165THENY=193:2 X=165: GOTO 


ITFY=19°S3THENK=165: Y=153 
POKEV,X:POKEVt1,Y 
GOSUBS999 

RETURN 
REMEXKKKKKHEHKKKKHEKKKKKHKEE 
REMEXKX#X3S-D ROOM VISUALHK* 
RE MEKKHKHKKEKHKKKKKKHEKKKKEKH 
PRINT" {CLR+" 

AS(1)="{RVS ON TWHT 3 


_{RVS OFF}" 

AS(2)=" {RVS ON} {WHT}? 
_{¢{RVS OFF?" 

AS(3)="  CRVS ON} (WHT? 


_¢€RVS OFF " 
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VO7B 


3H38G 


IBD 


J1GS 


ILE 
ISIS 


AS (4) =" 


_{RVS OFF}" 
CRVS ON} {WHT?D 
_¢{RVS OFF" 
CRVS ON3{WHT}D 
_{RVS OFF" 


AS(S)=" 
AS(6)=" 


AS (7) =" 

_€RVS OFF}" 
PRINT" {HOME} {CUR DN3<¢CUR DN3” 
BS="{CUR RT}(CUR RT}{CUR RT}{CUR RT 


{RVS ON? {WHT >> 


7{CUR RT3C{CUR RT}" 


DOLD 
3328 


JOU 
3346 


3326 


33/78 
3490 


DN}¢CUR DN" 


349419 
3429 
2430 
34496 
34356 
37460 
34979 
JIGS 
L> {CUR 
DN; {CUR 
L} {CUR 


DN {CUR 
L> {CUR 


DN {CUR 
L>? ¢CUR 
DN? {CUR 
L? ¢CUR 
DN} {CUR 


PRINTBS; AS(7) 
PRINTBS; AS(6) 


PRINTBS; AS (3) 
PRINTBS5 AS (4) 


PRINTBS5 AS (3) 
PRINTBS§ A$ (2) 


PRINTBS;AS(1) 
PRINT"{CUR DN3{CUR DN} {CUR DN}{CUR 


PRINTBS; AS (7) 
PRINTBSs; AS (6) 
PRINTBS; AS(5) 
PRINTBS; AS (4) 
PRINTBS; AS (3) 
PRINTBS; AS (2) 
PRINTBS;AS(1) 
BS(1)="{RVS ON CGY 


L}? {CUR 
DN? {CUR 
L} <CUR 
DN} {CUR 
L>" 


{RVS ON {WHT >> 


33 {CUR 
DN (CUR 
L>} {CUR 
DN {CUR 
LL}? tCUR 


DN {CUR 
L> {CUR 
DN} C(CUR 
L> {CUR 
DN {CUR 


3D1G PRINT" CHOME {CUR 
{CUR DN {CUR DN3{CUR 
{CUR DNFCCUR DNTCUR 
7{CUR RT}{CUR RT}3{CUR 
3320 PRINT" CHOME? (CUR 


3{CUR 


{CUR 


+{ CUR 


3{CUR 
{CUR 


+{CUR 


DN} {CUR 
DNs {CUR 
RT3{( CUR 
RT;(CUR 
RT3{CUR 


RT3{CUR 


DN{ CUR 
DN( CUR 
RT3{CUR 
RTs{ CUR 
RT{( CUR 


RTI {CUR 
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DN {CUR 
DNZJT CUR 
RT3{CUR 


DN (CUR 
DN{ CUR 
RT {CUR 


RT3 "BS (1) 


DN{CUR 
DN3{ CUR 
RT?<¢CUR 
RT3(CUR 
RTs (CUR 
RT?( CUR 


RTC CUR 


DN? {CUR 


DNiCUR 
RTs{ CUR 
RT} {CUR 
RTS {CUR 
RT{CUR 


RT? {CUR 


{CUR RT} {CUR RTI CUR 
7;{CUR RTFCCUR RTFCCUR 
3{CUR RT}"BS(1) 

39309 PRINT" THOME; (CUR 
{CUR DN?CCUR DNF{CUR 
{CUR DN}{CUR DN3{CUR 
;{ CUR RTFC{CUR RTFC(CUR 


3 


359496 PRINT" {HOME {CUR 


3{ CUR 


7{CUR 
3{ CUR 


7{CUR 
3{ CUR 
*+{CUR 


7 {CUR 
3{CUR 


7{(CUR 
+{ CUR 


}"BS(2 


DN {CUR 
DN3{ CUR 
Diis {CUR 
DN FT CUR 
RT3{ CUR 
RT?{RVS 


DNS TCUR 
DN (CUR 
DN {CUR 
DN<( CUR 
RT3( CUR 
ON > 


C{RVS OFF" 


390G BS(2)=" 
3568 PRINT" {HOME} {CUR 


DN {CUR 


DN?{ CUR 


RT{CUR 


decal 


DN;C( CUR 
DN3{ CUR 
RT{CUR 
RT?iCUR 


RT( CUR 


RT?( CUR. 


DN3 {CUR 


DNF{ CUR 
RTI{CUR 
RT?{CUR 
DN+{CUR 
DN3 {CUR 
DN {CUR 
DN>{CUR 
DN; {CUR 
RTs {CUR 
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DNF{CUR 
DNF < CUR 
DNS{CUR 
RT? {CUR 
RT?{CUR 


RT?{(CUR 
RT?{(CUR 


DN3{ CUR 
DN?{(CUR 
RT3{CUR 
RT {(RVS 


DN{ CUR 
DN (CUR 
DN({ CUR 
DN;{( CUR 
DN?({ CUR 
RT?( CUR 


DN3<{CUR 
DN} {CUR 
RT3<{CUR 
RT3?{CUR 
RTC{CUR 


RT 
RT 


DN 
DN 
RT 
ON 


DN 
DN 
DN 
DN 
DN 
RT 


DN 
DN 
RT 
RT 
RT 


SOP OG PRINT" {CUR 
RT3{CUR RTF{ CUR 
RT3{CUR RT}{CUR 
2380 PRINT" {CUR 
RTS{CUR RT}{CUR 
RT}{CUR RTFTCUR 
39970 PRINT" {CUR 
RT*{CUR RTFCTCUR 
RT3{CUR RT}3{CUR 
32699 PRINT"{CUR 
RT?{CUR RT}{CUR 
RT?{( CUR RT?{( CUR 


RT3{ CUR 
RT?( CUR 
RT}{ CUR 
RT}{CUR 
RT?{CUR 
RT?{CUR 
RT}{CUR 
RT?<{ CUR 
RT3}{CUR 
RT?(CUR 
RTI{ CUR 
RT?(CUR 


RTS{(CUR RTI{CUR 
RTS({CUR RT3C{(CUR 
RT3"BS(2) 
RT?({CUR RTFCTCUR 
RTS{CUR RT3{CUR 
RT} "BS(2) 
RTS{( CUR RT}{CUR 
RT?{CUR RTF {CUR 
RT? "BS(2) 
RT}{CUR RTT CUR 
RT+{CUR RTS{CUR 
RT}"BS(2) 


9798 C$ (1)="{RVS ON {GRN3,"""; €RVS OFFFE 
CUR DN}{CUR L}¢€CUR L}{(CUR L3{CUR L}{CUR 
See as CRVS ON? /C{RVS OFFFC{CUR DN} {CUR LC 
CUR L?tCUR L-{CUR L3fCUR Li/W {RVS ON}? 
{RVS OFF3{CUR DN} {CUR L3 {CUR L3{CUR LIC 
UR Let{CUR Li! C{RVS ON /CRVS OFFIC CUR D 
N3€CUR L3{CUR L3{CUR L3{CUR L3{CUR L}3/ 
{RVS ON? /{RVS OFFS" 
S761 IFND=1THENCS$(1)=C$(1)+"{CUR L}{CUR 
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LMCI CUR UPS TCUR LiCCUR LAWtCUR UPS{CUR L 
S{CUR L3’ {CUR UP} (CUR L}37’" 


3716 C$(2)="ACCUR UPSANZICUR DNI(CUR LZ 
CUR DN3{CUR L3%{CUR DN3{CUR L3%{CUR DN}< 


EGE L3s%( CUR DN TCUR Li%{CUR DN CCUR DNst 
L3{CUR L3{CUR L3{CUR L}’{CUR UP3{CUR 


L>’7<{CUR UPS{CUR L}’ {CUR UF} {CUR Li ’7WtCU 
R UP3{CUR L3{CUR L3’{CUR UP3}{CUR L}’" 
S711 IFWD=1THENCS(2)="ACCUR UPAN%{CUR DN 
7{CUR L3%{CUR DN{CUR L3%{ CUR DN}{CUR L3 
*®E CUR DNFCCUR L3%CCUR DNF CTCUR L3%{CUR DN 
3{CUR DN}{CUR L3{CUR L3{CUR L3{CUR L}3’7{C 
UR UPSCCUR Le’{CUR UP;{CUR L?’{CUR UP;{C 
UR L3’Wi{CUR UP3{CUR L3{CUR L3’{CUR UP3{C 
UR Le’ {CUR DN-CCUR DNFACTCUR DN" . 

3726 CS$(3)="ALCUR DNIALCCUR DNI%ZICUR DN3< 
CUR L3%{CUR DN {CUR L3{CUR Li3WZCCUR DNC 
CUR L3%{CUR DN3{CUR L3%{CUR DN3{CUR Li%f 
CUR UP;SC(CUR UF}ICUR L3{CUR Li{CUR Li{CUR 

L3* {CUR UP} {CUR L3’{CUR UP}{CUR L}3’{CUR 

UPS{CUR L3’fCUR UP} {CUR L}’ {CUR UP} {CUR 

bpm 
3721 IFED=1THENCS(3)="AM{CUR DNIALCUR DIN} 
*ZLCUR DNTCUR L3%{CUR DN {CUR Li{CUR LiW 
{CUR DN3 {CUR L3%{CUR DN3{CUR L3}%{CUR DN 
{CUR L3%{(CUR UP?}{CUR UPI {CUR Lit{CUR Lit 
CUR L3{CUR L3’{CUR UP3{CUR L}3’{CUR UP3{C 
UR L3’CCUR UPs3{CUR L?3’{CUR UP3{CUR Li’C{C 
UR UP3{CUR L3’€CUR DN}{CUR DN} {CUR DNF{iC 


UR DNS{CUR RTFINCCUR DNI{CUR L3 {CUR Lif" 
S899 IFA(RO,4)< >@THENPRINT" {HOME}{CUR DN 


+{CUR 
;{( CUR 
+{CUR 
7{ CUR 


DNF{CUR 
DNS {CUR 


DN; (CUR 
RT3{CUR 


*+"CS$(2Z) 
938190 IFAC(RO, 3) < >STHENPRINT" {HOME} {CUR 


7{( CUR 
+{CUR 


3 {CUR 
3{CUR 


7{ CUR 
+{ CUR 


3{CUR 


DNs{ CUR 
DN? {CUR 
DN; {CUR 
RT?{CUR 
RT (CUR 
RT3{ CUR 
RT?{( CUR 


DN {CUR 
DN3 {CUR 
DN} {CUR 
RT {CUR 


DN>{CUR 
DN> {CUR 


RT (CUR 


RT?i{ CUR 
RTs (CUR 
RT (CUR 
RTSiCuUuR 
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DN {CUR 
DN3 {CUR 
RT3{CUR 
RT{CUR 


DN {CUR 
DN {CUR 
RT{ CUR 
RT? (CUR 
RTS {CUR 
RT? (CUR 
RTs{(CUR 


DN{CUR 
DN S(CUR 
RT;( CUR 
RT3{CUR 


DN}{ CUR 
DNS tCUR 
RT {CUR 
RT3{CUR 
RT?{CUR 
RT{ CUR 
RTS (CUR 


DN 
DN 
RT 
RT 


DN 
DN 
Di 
RT 
RT 
RT 
RT 
RT 


{CUR RTGICUR RTS{CUR RTFICUR RTI (CUR 
{CUR RTFICUR RTF"CH(3) 
3826 IFA(RO,1)<>98THENPRINT" {HOME} {CUR 


7{CUR 
s{ CUR 


+{ CUR 
3; (CUR 
7( CUR 
+{CUR 


DN}{CUR 
DNF{ CUR 
RT}( CUR 
RT3{CUR 
RT(CUR 
RT{( CUR 


DN TCUR 
DN{ CUR 
RTC CUR 
RT?( CUR 
RTC(CUR 
RTFiCUR 


DN3<( CUR 
DNF{CUR 
RT}{CUR 
RT{( CUR 
RT}{CUR 


DN}<{CUR 
DN} {CUR 
RT}<{CUR 
RT}<{CUR 
RT}<{CUR 


RT3"CH (1) 


RT 


DN 
DN 
DN 
RT 
RT 
RT 


333d 
68D 


6819 
6929 


56930 
6946 
6856 
A858 
6875 
6939 
699D8 
6198 


611¢G 
9 


6126 
14 
6139 
11 
6149 
12 
6159 
13 
6166 
14 
6179 


1s 
613¢ 


618g 


M 1? 
520908 


18 
6219 


2 


62206 


RETURN 
RE MEHKHE HEHEHE HHH K HHH KEKE 


REMHXHXKKKXKHD A T AXKHHH HHH 
REMIEKHH HHH KKK KKK KHER KEKE KEK IG 
DATAS,3,2,;9,9,9,9,9,9,9:REmM ROOM 1 
DATAS,9,3,1,9,9,9,9,9,8:REM ROOM 2 
DATAG,19,9,2,9,9,9,9,9,8:REM ROOM 3 
DATAG,11,9,9,9,9,9,9,9,9:REM ROOM 4 
DATASD,9,6,9,9,9,9,9,8,9:REM ROOM 5 
DATAG,12,7,5,9,9,9,9,9,8:REM ROOM 6 
DATAG,9,9,6,9,9,9,9,9,8:REM ROOM 7 
DATA1,9,9,9,4,9,9,9,9,9:REM ROOM 8 
DATAS, 29,19,8,9,9,9,9,8,9:REM ROOM 


DATAS,1494,11,9,9,9,9,9,9,9:REM ROOM 

DATA4G,16,12,19,8,9,9,9,8,9:REM ROOM 
DATA6,17,13,11,9,9,9,8,8,98:REM ROOM 
DATAS,18,9,12,9,9,9,8,9,8:REM ROOM 

DATAIG, 21,15,9,9,9,9,9,9,9:REM ROOM 
DATA®S,9,16,194,9,9,9,9,9,9:REM ROOM 

DATA11,21,49,15,9,9,9,9,98,9:REM ROOM 
DATA12,27,18,16,9,9,9,9,9,9:REM ROO 
DATA13, 28,9,17,9,8,9,9,9,9:REM Room 
DATAGD,9,29,9,9,9,9,9,9,9:REM ROOM 1 


DATAS, 23,9,19,9,9,9,9,9,9:REmM ROOM 


DATA14, 22,16,9,9,9,9,9,9,9:REM ROOM 
DATA21,25,9,9,9,9,9,9,9,9:REM ROOM 
DATA2G,9,9,9,9,9,9,9,9,@:REM ROOM 2 
DATAS, 29, 25,9,9,9,9,9,9,9:REM ROOM 
DATA22,9,9,24,9,8,9,9,9,8:REM ROOM 
DATAD,9,27,9,9,9,9,9,9,8:REM ROOM 2 
DATA17,9,9,26,9,9,9,9,9,9:REM ROOM 
DATA13,9,9,9,9,9,9,9,9,9:REM ROOM 2 
DATA2Z4,32,9,9,9,9,49,9,98,9:REM ROOM 
DATAS, 33,9,9,9,9,9,9,8,9:REM ROOM 3 
DATAS, 34,35,9,9,9,9,9,9,9:REM ROOM 
DATA29,%,33,9,9,9,9,9,9,9:REM ROOM 
DATASS,9,34,32,9,9,9,9,9,9:REM ROOM 
DATA31,9,9,33,9,9,9,9,98,@:REM ROOM 
DATA31,9,9,36,9,9,9,9,9,9:REmM ROOM 


DATAG,9,35,9,9,9,9,9,9,9:REM ROOM 3 


REMEKKKKKKKKKEK 
REMXXXSET -UPHXX 
REMEXHHKKKKHKHKKEE 
DIMA(36,19) ,MS(29) , T#(20) 
RO=1 

FORB=1T0O36: FORC=1TO19 


READA(B,C) ;-NEXT: NEXT 
RETURN 


REMEKKEKKKHKEKHEKEKKEKKKEKKKKEKE 


REMKXXXHXSPRITE DATAKKHKKKKE 
REM H KKH HEHEHE KH HK HIKER KEK 
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SI3G REMKXXXKXXLOGAD SPRITE DATAXHHHHHX 
S948 POKE2ZG4G,192 

8858 FORX=192T0194: FORY=97T063: READA: PQKE 
Y¥G64+Y, ALNEXTINEXT 

8969 V=53248!POKEV+21, 1: POKEV+39, 15:POKE 
V,165!POKEV+1,193 

S978 POKEV+23, 1: POKEV+29, 1: POKEV+28,1:P0 
KEV+38,6:POKEV+37,2 

8975 X=165!Y=193: RETURN 

BIST REMKXXXHKKHHKKKKHKHKKHKKKKKKKEEE 

S198 DATAD, 252,9,1,95,8,15,255,192,2,165 
,G,1,165,9,16,169,9,9,169,9,2,168,9 

8118 DATAGD, 168,9,3,255,9,3, 254,9,3,254,9 
,3,254,9,3,254,9,1,86,9,3,259,9,3,3,9 
S120 DATAS,3,9,1,3,9,5,1,;9,9,;5,9,8 

826G DATAD, 255,9,9,95,9,3, 255,192,1,186, 
G,1,73,9,1,178,128,1,168,9,9,179,9 

8218 DATAG, 168,9,2, 255,95, 2,255,9,2,255,9 
52,255,9,2,255,9,2,199,9,3,255,9,3,3,9 
8@22G DATAS,3,9,3,1,9,1,1,64,1,64,9,9 
8399 DATAG, 252,9,1,85,9,15,255,192,1,85,- 
G,1,95,9,1,85,9,1,85,9,9,84,9,9,148,9 
83198 DATAS, 255,9,3,255,9,3, 255,9,3,255,G 
13,255,9,1,85,9,3,255,9,3,3;8,3,5,9 

3329 DATA1,1,9,1,1,9,1,1,9,9 

19690 PRINT"{CHOME}{CUR DN3{RVS ON}SORRY, 
BUT THIS DOOR NEEDS THE SILVER KEY{(RVS O 
FF}" 

19919 FORTT=1TO2999: NEXT 

19949 IFA(RO,3)=12THENED=9 

19868 RETURN 


READY. 


REFLEX 
BOWLING ALLEY 


How's this for two in one? This program allows you ta 
play ten pin bowling (after a fashion) by testing your 
reflexes. 


ae 4% ry han b 


Dy 1, aT mi I ali » ay o 


When you run the program, you'll see the ten pins 
standing on the screen Like this: 


YOUR SCORE TO THIS FRAME IS 0 


THIS IS FRAME 1 BALL 1 


000 0 


STAND BY TO BOWL 


After a short delay, of random duration, two magic words 
will appear beneath the words STAND BY TO BOWL: 


BOWL NOW 


The more quickly you react to this message, by hitting 
any key, the better your bowl will be. As you can see, I 
did not do too well with my first ball: 


THIS IS FRAME i-_ BALL 1 


-> SPARE <- 
0000 | ONE PIN DOWN 
00 0 
0 0 


However, I did a Little better in the second frame: 
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YOUR SCORE TO THIS FRAME JS 2 


THIS IS FRAME 2 BALL 1 


0000 


-> SPARE <- 
6 PINS DOWN 


And in the third frame, I got a strike! 


YOUR SCORE TO THIS FRAME IS 8 


THIS IS FRAME 3 


>> STRIKE << 


Naturally, following the rules of bowling, the score I 
obtained in the next frame was doubled: 
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YOUR SCORE TO THIS FRAME IS 18 


THIS IS FRAME 4 BALL 2 


0000 


-> SPARE <- 
4h PINS DOWN 
PLUS 4 11 


But I utterly disgraced myself with the first bail 
the fifth frame: 
YOUR SCORE TO THIS FRAME IS 26 


THIS IS FRAME 5 BALL 1 


000 0 


> GUTTER < 
O PINS DOWN 


I only managed a score of 43 for the round: 


THAT'S THE END OF THE SET 


YOUR SCORE WAS 43 
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in 


When you're ready to beat my score, which you’ should 
find easy to do, here's the Listing which will help you 


do it: 


19 REM TEN-PIN BOWLING 
26 GOSUB759:REM INITIALISE 

38 FORF=1ToO19¢ 

46 FORB=1T02 

5@ IFB=1THENGOSUB289:REM SET UP PINS 
69 GOSUB349:REM PRINT PINS 

7@ GOSUB479:REM BOWL BALL 


36 GOSUB349 
9°89 Co=9 


196 
11 
126 
136 
149 
66 


FORJ=1TO19 

IFA (J) =4S5THENCO=CO+1 

NEAT J 

IFCO=STHENPRINT,"> GUTTER <" 
IFTS=FTHENPRINT, ">> STRIKE <<": GOTOL 


IFCO=19THENPRINT, "2:5 ALL PINS DOWN : 
IFCO>GANDCOX< 1S@THENPRINT, "-> SPARE <- 


IFCO=1THENPRINTTAB(15) "ONE PIN DOWN" 
IFTS< >FANDCOX > 1LANDCOXK 1S THENPRINTTAB ( 
CO"PINS DOWN" 

GOSUBS4S 

NEXT B 

SC=SC+CO 

IFTS=F-1THENPRINT, "PLUS"CO"!!":SC=SC 
TS=99:GOSUBS49 

NEXT F 

PRINT"THAT’S THE END OF THE FRAMES" 
PRINT:PRINT"YOUR SCORE WAS"SC 

END 

REM XX KKHHK HHH 

REM SET UP PINS 

FORJ=1TO19¢ 

A‘3)=79 

NEXT J 

RETURN 

REM HHKKKHKKKHH 

REM PRINT PINS 
PRINT"{CLR3"!:PRINT: PRINT 
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369 
37D 
38g 
381 
39D 
4gg 
y)5” 
419 
25" 
425 
») 
43g 
44g 
459 
465 
476 
43g 
49g 
Sao 
51d 
528 
539 
S549 
555 
56g 
S78 
589 
59D 
69GB 
61G 
628 
438 
64GB 
659 
669 
67D 
68 
695 
78B 
71GB 
728 


738 
74g 


PRINT" YOUR SCORE TO THIS FRAME IS"SC 
PRINT: PRINT" THIS IS FRAME"F3 
IFTS=99THENPRINT" BALL"B 

IFTS< >99THENPRINT 

PRINT: PRINT" {YEL?" 


PRINTTAB(13) CHRS(A(19))5" "SZ CHRB(A(9 
"SCHRS(A(S))5" "SCHRB(AC?)) 

PRINTTAB(149) 5CHRS(A(6))5" "SCHRSB(A(S 
"3; CHRS (A(4) ) 

PRINTTAB(15) 5CHRS(A(3))35" "SZ CHRS(A(2 


PRINTTAB(16) §}CHRS(A(1)) 

PRINT! PRINT 

RETURN 

REM XHHHHKHKKH HIN 

REM BOWL BALL 

PRINTTAB(4) "STAND BY TO BOWL":PRINT 
GETGS: IFG#< >" "THENA9S 
FORR=1TO3@9+RND (1) ¥Z 

NEXTR 

GETGS$: IFGS< >""THENS@¢@ 
PRINTTAB(7) "BOWL NOW" 

N=9 

N=N+.7 

GETG#: IFG$=""THENS5¢9 
IFB=1ANDRND (1) >. 9ANDN< SBTHENN=19 
IFN< 2@ANDB=1 THEN679 

IFN< 2GTHENT=1@ 

IFN>19ANDN< SETHENT=5+ INT (RND (1) ¥4) 
IFN>29ANDN< 42 THENT=2+ INT (RND (1) ¥5) 
IFN>41THENT=INT (RND (1) ¥4) 
FORK=1TOT 

IFRND(1) >. 1 THENA(K) =45 

NEXTK 

RETURN 

REM * STRIKE * 

FORK=1TO19 

A(K) =45 

NEXTK 

TS=F 

B=2 

RETURN 

REM 4XXKKKKKHEHHKKHH 
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706 REM INITIALISATION 

769 PRINT" {CLR}" 

7/6 POKES3281,96:POKE53289,8 
788 DIMA(19) 


79°G SC=G: REM SCORE 
S9O 2Z=390G 


S19 TS=99 

826 RETURN 

S3G REM KXHKEKK 
846 REM DELAY 


359 FORL=1T01396:NEXTL 
S69 RETURN 


READY. 
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TELEPATHY TESTER 


This relatively simple program is a good one to have on 
tap for when your friends come around, and you want to 
show them the power of your computer. 


..... IT REALLY 


When the program is up and running, the computer 
expLains the situation: 


~125 


Now I'm going to test your ability at 
doing Math in your head...and I'll 
demonstrate my telepathic powers 


I'll give you a series of instructions 
which I want you to carry out... 


After you've followed each instruction 
you just press any key - and I'll give 
the next instruction to follow 


Once the preliminaries are out of the way, the ‘'tele- 
pathy testing’ gets underway: 


First, I want you to think of a number 


oeeoeseeostoeeeeste3e7n+roeese3@ee0e30oe#7ee#eeseee8e%8%88¢e8s e888 © © «© @ 


Now multiply that by five... 


eoeoeoee#e5#exee3++eteeeac#8s*eeesegeeeeee%#%s ¢€ @ @e 6€ © © © @ & ww ewiae 


Add six to this 


eoeecesoeste3s5ooese@esteeee#eeseteeex3425x5eee#e#ee#eteeee 8 ey © «© ® . wo 4 


Multiply the answer you've got by four 


oeee5e05oeseeeecgcee54050o5es5§60ue5vs5§eessrsgseee eeeoee#¢#e2e¢«¢ ee @ @© + #* «& 


Add nine to this 


eeeoeeeee?ee#eeeeeeetees##efeeees2#seeeeeeetemhlUchOhmhlUCcOhmhUCcFmhCUCUchBhmUhMH!]HhUhH OH HO HF HF @ 


Now multiply this by five 


eeoee¢e*eee7seses*see7es8#ee0ee#e#s?¢?e028e8088e0e08080888e8¢8¢88¢@808@#80886@ ¢€¢ 8 @ @ 


Now tell me the number you've 
ended up with... 


2 465 
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Your number is 3 


But there is more to the program than that. After a 
brief pause, so your guests can relax from the 
unaccustomed mental effort, a second ‘test' begins: 


Now here we go with another one to 
test your mental powers again... 


eooeaqa?eee¢8¢e@8¢ @ 8@ 8 @ Cr 


I want you to write down three numbers 
which are each less than 10... 
cooeseecvoeeand greater than zero 

Don't let me see them! 


ooeoeoeeeoeeeeegeeedgdcee¢?e#*#e8teees#s#t Ge ec eae ehlUlemlmUcOmUCUCUCOmUC OrmUCOCmhUClCUchWUc HU FH OH OH US 


Now multipiy the first number by two 


Add three 


oeeoe3e3‘crw Cc OmUCUCOOWmUCUMHMUCUCOOmUC OmhUchOrmUCOhlhlU eoece@eeeedese@ege@egeoeetfeeseees$egeeerer##e#ereeeoee#eee oe & 


And next add seven to this... 


@oeeoeee¢eeeee?eee#ee?te?@ee8#8# @#eee@e@6hmftmUmUCOWUCUCOWUCUGUUCUCOUCUMASMUCUS ee e828 @e¢06 8 eoe:0ec@e 


Time now to add in your second number 


@eeeeeseese6@e#ee2e8e @68e@©6UhOWUCUhTCUM WUC }WUUC HO O89 GC BAetEHeee@eeee eehlcttehUcOhhUhSOMrmhUCc OhUCUCOMCrRMC OlhUlCUOhlUhO 


Double the number you've got so far 


eoeeooeeoeee?eeeseesgese9oegege9geagee@eeteseesee ee ocmUcUmc OU OOCUCUcU [MUM OCC OCUCOCUCOUcCOOCU OCmUCMOCmhUCUCOrmUCUCcCOrmhUCUCOlhlU? 


The next bit is easy - just add three 


Now, a hard bit...multiply by five... 
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Another easy bit...add the third number 


e@eeoee#ee¢?eegeeeeoeseseesesoeoeusox#e @tseenree#eee29oee#e##%8e#e##?Fst?e¢¢8e0e0e080 0 0 @ 


Give me the number you've ended up with 
2 878 7 


eoeee#eeeese#senuoeeee#eoeeeee%ee%e#e%eeee#ee?e?e##eeseet#e#eeeeeee 


Your first number was 6 


@eeeoe#oseeeeee«ee#ese#oe&ee5oeeoede#ese¢eevwee##?ete#eoeseeee%se@8#ee8808 800 0@ @ 


Your second was 4 


And your third was 3 


A polite farewell, and the program is over: 


Thanks for stretching your brain with 
me, Math Champeen...See you again... 


Here's the Listing to amaze your friends: 


19 REM TELEPATHY TESTER 
2G PRINT"{CLRi "PRINT: PRINT 
398 PRINT"NOW I’M GOING TO TEST YOUR ABIL 


ITY AT" 

46 PRINT” DOING MATH IN YOUR HEAD...AND 
sae ot 

38 PRINT" DEMONSTRATE MY TELEPATHIC PO 

WERS" 


6G GOSUBS8¢ 

768 PRINT"I’LL GIVE YOU A SERIES OF INSTR 
UCTIONS" 

38 PRINT"WHICH I WANT YOU TO CARRY OQUT.. 


?9 GOSUBS39 
196 PRINT"AFTER YOU’VE FOLLOWED EACH INS 
TRUCTION" 
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119 PRINT"YOU JUST PRESS ANY KEY - AND I 
"LL GIVE" 

120 PRINTTAB(4)3 "THE NEXT INSTRUCTION TO 
FOLLOW. " 

139 GOSUBS8S¢ 

149 GETAS: IFAS< >" "THEN1I4@ 

159 PRINT"FIRST, I WANT YOU TO THINK OF 

A NUMBER" 

169 GOSUBS7¢ 

179 PRINT"NOW MULTIPLY THAT BY FIVE..." 
18g GOSUBS7¢9 

199 PRINTTAB(19)3"ADD SIX TO THIS" 

299 GOSUBS7S 

219 PRINT"MULTIPLY THE ANSWER YOU’VE GOT 
BY FOUR" 

229 GOSUBS79 

239 PRINTTAB(19)3; "ADD NINE TO THIS" 


2490 GOSUBS?7S6 
239 PRINT"NOW MULTIPLY THIS BY FIVE" 


268 GOSUB879 

2798 PRINT"NOW TELL ME THE NUMBER YOU’ VE” 
289 PRINTTAB(19)5; "ENDED UP WITH..." 

290 PRINT secs otto bou cece Se eae eae eee 
eee ere .":PRINT 

398 INPUTNUMBER 

319 NU=(NU-165) /199 

329 GOSUBS8Sa 

330 PRINTTAB(19);"YOUR NUMBER IS"NU 

349 GOSUBSS¢ 

359 GOSUBS9S 

368 FORJ=1TO039 

378 PRINTTAB(J)3">" 

389 FORT=1TO19@:NEXT T 

398 NEXT J 

499 GOSUBSS¢ 

419 PRINT"NOW HERE WE GO WITH ANOTHER ON 
E TO" 

429 PRINT"TEST YOUR MENTAL POWERS AGAIN. 


430 GOSUBS8S9 


449 GETAS: IFAS< >" " THENSSSD 
4590 PRINT"I WANT YOU TO WRITE DOWN THREE 


NUMBERS" 
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$63 PRINT" WHICH ARE EACH LESS THAN 129.. 


4790 PRINT"..2¢e¢2e222eeAND GREATER THAN ZER 
ee ee ee ee 

4S9 PRINTTAB(S); "DON’T LET ME SEE THEM!" 
4°90 GOSUBS?7S9 

986 PRINT"NOW MULTIPLY THE FIRST NUMBER 
BY TWO" | 

319 GOSUBS79 

220 PRINTTAB(12)5 "ADD THREE” 

3390 GOSUBS7S 

946 PRINT"MULTIPLY THIS BY FIVE" 

398 GOSUBS?7S 

3696 PRINT"AND NEXT ADD SEVEN TO THIS..." 

3768 GOSUBS?/S 

389 PRINT"TIME NOW TO ADD IN YOUR SECOND 
NUMBER" 

398 GOSUBS79 

699 PRINT" DOUBLE THE NUMBER YOU’VE GOT S&S 
O FAR" 

616 GOSUBS?7S9 

626 PRINT"THE NEXT BIT IS EASY - JUST AD 
D THREE” 

6390 GOSUBS7¢9 

646 PRINT"NOW, A HARD BIT...MULTIPLY BY 


FIVE..." 
658 GOSUBS7¢9 


669 PRINT"ANOTHER EASY BIT...ADD THE THI 
RD NUMBER" 

678 GOSUBS79 

686 PRINT"GIVE THE NUMBER YOU’ VE ENDED U 
P WITH" 

698 INPUTNO 

798 NO=NO-235 

718 GOSUBS8S¢2 

726 A=INT (NO/199) 

7398 B=INT ( (NO-199*A) /19) 

7496 C=NO-16*B-1909%*A 

738 PRINT: PRINT 

74696 PRINT"YOUR FIRST NUMBER WAS"A 

“768 GOSUBSS8S9 

739 PRINTTAB(C3S) 3 "YOUR SECOND WAS"B 

796 GOSUBSSS 
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SOG PRINTTAB(19)3;"AND YOUR THIRD WAS"C 


S1g GOSUBS389 
826 PRINT"THANKS FOR STRETCHING YOUR BRA 


IN WITH" 
839 PRINT"ME, MATH CHAMPEEN...SEE YOU AG 
AIN..." 
SO PR IN a ele pe ek ee ee ee a a cn aaos 


8359 GOSUBSSs¢g 


S69 END 
S76 GETAS: IFAS=""THEN87S6 
S3B¢g PRINT us a @ ess 3 oseaeesea és a J a s a a e 9s e a Ss gs sags a a 


oa e gs @aes#ses@4@ e SPRINT 


899 FORT=1TOIS9O: NEXT T 
P99 RETURN 
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INVISIBLE 
BRICKLAYER 


Here's a snappy variation of an old favorite arcade 
game. You have five balls, and with them you have try 
and knock down all the bricks in the wall. 


You gain five points for each brick you hit. 


When one stage has been completed, you'Ll get a free 
man, bonus points, and an extra layer of bricks. There 
are five stages in all. You have the option of turning 
the bricks invisible, if you Like a real challenge. 


Your controls: 


A — to move left 
L —- to move right 
S & K — these double your speed 


1 V1=54296:W1=54276! A1=54277 

2 POKEV1,15:POKEW1,17 

3 H1=54273:H2=54272 

4 POKEH1,@:POKEH2,@ 

S INPUT"{CLR}DO YOU WANT INVISIBLE BRICK 

S"5 YS 

6 YS=LEFT#S(¥S, 1): 1FYS< >"Y"ANDYS< > "N" THEN 

5 

14 HI=9:N=1:Z=328: POKE65S, 255 

15 N=1:Z2=320:SC=G:M=1 

16 PRINT" {CLR}{BLU}":POKES328¢, 5: PUKES32 

81,0 

17 A=25!B=1924:C=15: D=19:E=8: BBS=" 
@CCBCCCCCCECEEEE":EE=55296 

18 IFYS="Y" THEN9S8S 

19 PRINT"{HOME}{€CUR DN3{CUR DN}{CUR DN}~ 

CUR DN}{CUR DN} {WHT} "BBS: PRINT" {RED} "BBS 

:PRINT" (GRN} "BBS: PRINT" {OR} "BBS 
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26 IFN>=2THENPRINT" {HOME} {CUR DN}{CUR DN 

}{CUR DNFLCUR DNF{CUR DN3{(CUR DN CCUR DN 

3;{CUR DN3ICUR DN} {YEL} CeECCEEC 

CeECCECCCEEE "32-1929 

21 IFN>=3THENPRINT"{HOME3} {CUR DN3{CUR DN 

{CUR DNICCUR DNIICUR DNIICUR DNI{CUR DN 

3{CUR DN3{CUR DN3{CUR DN{CYN} 
CCCCECECECCECECE "5 2=18906 

22 IFN>=4THENPRINT" {HOME (CUR DN3{CUR DN 

37 CUR DNFI{CUR DNIICUR DNSC(CUR DNit{CUR DN 

7{ CUR DNS {CUR DN {CUR DN3ICUR DNS IGRN> 

CECCCECECCECCE CECE "3 2=26690 

zo GOTO12¢6 

24 PRINT" {HOME3<£CUR DN I CYN} BALL":PRIN 

T”" NUMBER” PRINT" "MIPRINT" {PUR} @@CeCCCEe 

{CUR DNITCUR DN IS{CUR DN CCUR DNFICUR Lif 

CUR L3{CUR L3{CUR LI {CUR LI {CUR LiCCEECCE 

2a C=C-1:D=D-1 

26 IFPEEK(Bt+Ct+t46*#D) =64THENPOKEBtC+4O#D,3 

2:GOSUB19996:GOTQ63 

2? IFD=3THEN63 

28 POKEBt+tC+49xXD, 81:POKEEE+C+49*¥D, 12: G0SU 

BS6 

29° POKEB+t+C+46XD, 32 

3G IFCC<LAITHENGOSUB2Z9GS: GOTOS2 

31 GOTO2S5S 

32? C=C+1i2:D=D-1 

33 IFPEEK(B+C+40#D) =64THENPOKEBt+C+4QO6#D, 3 


45 GOSUB1969:GOTO63 
$4 IFD=3THEN63 


35 POKEB+C+4O%XD, 91: POKEEE+C+49x%D, 12: GOSU 
BS6 

36 POKEB+C+49%D, 32 

37 IFC} 28THENGOSUB299@: GOTO25 

38 GOTO32 

BP C=C-1:D=D+tl 

48 IFPEEK (B+C+4@*%D) =S85THENGOSUB3999: GOTO 
25 

41 IFPEEK (B+C+4@*D) =73THENGOSUB3999: GUTO 
32 

42 IFPEEK (B+C+49%D) =64THENSC=SC+5: GOSUBL 


GIDS 
43 IFD=19THEN? 1 
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44 POKEB+C+49*D, 81: POKEEE+Ct+49*D, 12: GOSU 
B86 

45 POKEB+C+4 9D, 32 

46 IFC< LI THENGOSUB2999: GOTO48 

47 GoTasgs 

48 C=C+i:D=Dtl 

49 IFPEEK (B+C+49*D) =SSTHENC=C-INT(RND(1) 
¥3) 1! GOSUB3999:GOTO25 

S@ IFPEEK(B+C+4OX¥D) =73THENC=C+INT (RND(1) 
¥3) !:GOSUB3 999: GOTO32 

Si IFPEEK (B+C+49*¥D) =64THENSC=SC+5: GOSUB1 
GIS 

S52 IFD=19THENZ1 

S53 POKEB+C+49*D, 61: POKEEE+C+49%D, 12: G0SU 
BS6! POKEB+C+4@GXD, 32 

54 IFC>~8THENGOSUB2999¢: GOTO3? 

55 GoTass 

36 D=Dti 

S57 IFPEEK(Bt+C+4@*D) =64THENSC=SC+t+5: GOSUBIL 
GID 

SS IFPEEK (Bt+C+4@X¥D) =S5STHENC=C-INT (RND(1) 
¥3) !:GOSUB3999:GOTO25 

39 IFPEEK (B+C+4@¥D) =73THENC=Ct+INT (RND (1) 
%3) !GOSUB399EG: GOTO32 

68 POKEB+C+49*D, 81!:POKEEE+C+46X%D, 12: GOSU 
BS6:POKEB+C+4@GXD, 32 

61 IFD=19THEN?Z1 

62 GOTOS56 

63 L=INT(RND(1)*3) 

64 IFD=3THEN6GS 

65 SC=SC+5: IFSC >HITHENHI=SC 

66 PRINT" CHOME}(CUR DN} {CUR DN}{(CUR DN}¢ 
CUR DN3{CUR DN3{WHT3 SCORE: ":PRINT: PRINT 
" "“SC!IPRINT:PRINT" CRED} ¥(WHTIHIGH{CRED}* 
{YEL}"!:PRINT!IPRINT" "HI 


68 IFL=2THENC=C+tL: GOTOS39 
69 IFL=@THENC=C-L: GOTO4S8 


768 IFL=1THENSG 

“71 POKEV1i,152>M=M+1: IFM=6THEN?? 

72 POKEW1,17:POKEA1, 9: FORTT=1TO1L29: NEXT 
73 READAA: READBE: IFBB=-1THENPOKEH1, 9: POK 
EH2,9:GOTO?7S 

“4 POKEH1, AA: POKEH2, BB: POKEW1,4:GOTOV2 
73 RESTORE: GOTO24 
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79 PRINT" {HOMES (CUR DN} {CUR DNIICUR Di¢ 
CUR DN} {CUR DNIICUR DNTCUR DNC CUR DNC 
CUR DN}{CUR DN3{CUR DN< CUR DN>¢ CUR DN3<¢ 
CUR DN{CUR DNFCCUR DNS{CUR DN{CUR DNet 
CUR DNS {CUR DN} {CUR DN}{CUR DNI{CUR DN}" 
SPC (15) "WHT GAME OVER" 

SO FOGRT1=1TO2996: NEXT 

S82 GOTO496h 

36 GETAS 

S9 IFSC=ZTHEN1ISGS 

POG POKEBtAt4O*#18, 32: POKEB+t (At1) +49*19, 32 
92 IFAS="S" THENA=A-2:G0TO9? 

93 IFAS="K" THENA=At2: GOTO97 

SQ IFAS="A" THENA=A-1 

9S IFAS="L"THENA=At1 

97? IFAS 1SBTHENA=19 

9S IFA>28STHENA=28 


qé IFSC >HI THENHI=SC 
© PRINT"{HOME}{CUR DN} {CUR DN3{CUR DN} 


{CUR DN {CUR DNS CWHT} SCORE: ": PRINT: PRIN 
T" "SCI PRINT: PRINT" {RED} ¥{WHT }HIGH{ RED} 
H¥{VYELZ"SPRINTSPRINT" "HI 

191 POKEBtAt+4G#18, 85: POKEB+ (At+t1)+49%18, 7 
Sor BERR e ig tones ene ne per ane oe 


192 RETURN 

193 FORR=SCTOSC+299: POKEW1,17!POKEA1,9:P 
OKEH1, 69: POKEH2, 149: POKEW1,@ 

194 PRINT" {HOME}{CUR DN3}{CUR DN3<{CUR DN} 
{CUR DN} {PUR}"SPC(17) "BONUS" 

195 IFR>HITHENHI=R 

196 PRINT"{HOME}{CUR DN3{CUR DN3{CUR DN3 
CCUR DN} {CUR DN} {WHT} SCORE: "!:PRINT!:PRIN 
T" "RIPRINTIPRINT" {RED} ¥€ WHT FHIGH{ RED} ¥ 
CYEL}":PRINT!PRINT" "HI 

197 NEXT: POKEH1, 9: POKEH2, 9: SC=R!N=N+1L:1F 
N=6THENS 999 

188 IFM=1THEN11¢ 

199 M=M-1 

116 GOTO16 

120 PRINT" {HOME}{(CUR RT?}{CUR RT}{CUR RT} 


{CUR RT3{CUR RTFCCUR RTFCCUR RTSTCUR RT 3 
{CUR RT}{RVS ON3{LT BLU} 
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139 PRINT"{CUR RT3{(CUR RT3{CUR 
TI{CUR RTF{CUR RTFCCUR RTFCCUR 


TIIRVS ON} 


149 PRINT"{CUR RTF{CUR RTF CCUR 
T3{CUR RTFICUR RT3{CUR RTI} {CUR 


T3{RVS ON} 
1539 PRINT" {HOME} {CUR 


{CUR 
{CUR 
CCUR 
{CUR 
{CUR 
(CUR 


166 PRINT"CCUR 
T3{CUR RT3{CUR 


DN3<{ CUR 
DNS {CUR 
DNTCUR 
DN {CUR 
RT{(CUR 
RTS{RVS 


T3{RVS ON; 


176 PRINT" {CUR 
T3£{CUR RTILCUR 


TIERVS ON} 
18@ FORRR=1@32TO1872STEF4G: POKERR, 169:P0 
KERR+54272, 14: NEXT 
19G FORRR=1955TOG1S95STEP4@: FOKERR, 169:P0 


KERRt+39272,14: NEXT 
2368 PRINT" {HOME} {CUR 


{CUR 
. CUR 


{CUR 
{CUR 


{CUR 
{CUR 


{CUR 


DNF{CUR 
DN3 {CUR 


DN{CUR 
DN {CUR 
RT{CUR 
RT?{( CUR 
RT3{ CUR 


STAGE# "NW 
2509 GOTQ24 


1996 IFYS="N"THEN1ISSS 


KKEXBREAK — INKX¥ 


DN}1 CUR 
DNF{CUR 
DN {CUR 
DNI{ CUR 
RTI{CUR 
ON > 


DN FT CUR 
DN}{CUR 


DN{CUR 
DN? {CUR 
RT3({CUR 
RTSC(CUR 
RT{CUR 


RT CCUR 
RT?{ CUR 


RT (CUR 
RT{CUR 


DNS (CUR 
DN{CUR 
DN (CUR 
DN3{CUR 
RTS{CUR 
RT?{CUR 


DN {CUR 


DN} CCUR 
DN?{CUR 


DN {CUR 
DNS {CUR 
RTs{CUR 
RT (CUR 
RT? (CUR 


RT?7{( CUR 
RT (CUR 


RT>(CUR 
RT?{(CUR 


DN {CUR 
DNs<{ CUR 
DN; (CUR 
DN; {CUR 
RTS {CUR 
RT{CUR 


DN?{ CUR 


DN}(CUR 
DNS { CUR 


DN? {CUR 
RTI (CUR 
RTs<( CUR 
RT?{ CUR 
RT{RVS 


RT?{CUR R 
RTI{CUR R 


RT?{CUR R 
RTS{CUR R 


DN3 


DN 3 
DIN 
DN 3 
RT > 
RT > 


RTs{(CUR R 
RTS{CUR R 


RTI{CUR R 
RT{CUR R 


DNF 
DN? 
DN> 
DN > 
RT 3 
RT > 
RT > 
ON > 


196961 IFYS="Y"THENPOKES3281,1°FORT=1TO159 
>NEXT? POKES3231,9 . 
POKEW1,9:POKEW1, 17 
POKEH1,43: POKEH2, 52: FORRR=1TO19: NEX 


19695 
1G1i1¢ 
T 

1929 
23D 
2016 


28268 
3GOD 


POKEW1,@: POKEH1, 9: POKEH2, @: RETURN 
POKEW1,@:POKEW1,17 

POKEH1, 64! POKEH2,188 
POKEW1,@:POKEH1,9:POKEH2,9: RETURN 
POKEW1,@:POKEW1,17 
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34616 POKEH1,381:POKEH2Z, 161: FORRR=1TO196:NE 
AT 

39290 POKEW1,@: POKEH1, 4: POKEH2, @: RETURN 
4655G REM KEKEKKKKKKKKE 

49190 IFN=6THENPRINT" {HOME} {CUR DNS {CUR 


D 
NACCUR BNSTEUR BABTEGR BN3 EUR DNStCUR D 
D 
D 
1 


N3<{CUR DN3<CUR DN}{CUR DN}{CUR DN} {CUR 
N3€CUR DN3<{CUR DN}{CUR DN3{CUR DN} {CUR 
N3}<CUR DN3"SPC(15) "{WHT}GAME OVER" :FORT 
=1TO3S9S: NEXT 

4628 FORT=17T025: PRINT: FORTT=1TO69:NEXT!IN 
EXT : 

4950 PRINT" {HOME} {WHT}ANOTHER GO?" 
4669 GETAS! IFAS< > "Y¥"ANDAS< > ""N" THENFS6E 
4978 IFAS="Y"THENRUN 

4636 POKE5S4279, 9: POKE54273, 9: POKES4272,9 
'POKE54276, 9: END 

5@O@8 DATAS4, 175,32, 94, 28,214,25,177 

5S@1G DATA2Z2, 227, 21,154,19,63,17,37 

5928 DATA-1,-1 

PISA REM XXXKKHKHKKKHKHH 

991G PRINT" CHOME}{CUR DN}<CUR DN}{CUR DN 


{CUR DN CCUR DN} {BLK} "BBS: PRINTBBS 


94290 PRINTBBS: PRINTBBS 
PGS3G IFN>=2THENPRINT" {HOME} {CUR DN}{CUR 


DN} {CUR DN}ICUR DN} {CUR DNF CTCUR DN CCUR 

DNS{CUR DNIC{CUR DN}{BLK}3 CCCE 
CCCCCECCCCECEG "22=19625 

994990 IFN>=S3THENPRINT" {HOME} {CUR DN} {CUR 


BN? ¢CUR DN{CUR DN} {CUR DN} {CUR DNIC(CUR 
N>{CUR DN3{CUR DN3{CUR DN}3<¢{BLK} 


CECCCCCCECECECECEE "12-1869 
SOG350 IFNS=4THENPRINT" CHOMES {CUR DN} {CUR 
DN} <CUR DN3I CUR DN}{CUR DN? C(CUR DNF CTCUR 
DN3{CUR DN} {CUR DN3L{CUR DN3{CUR DNC BLK} 
CECCCECCECECCCCECCEE "3 2=2669 
9966 GOTO2S 


READY. 
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POKER 


Here it is, a full ‘solo poker' game. You play by the 
standard rules of draw poker. 


You start the game with 10 credits. No matter how many 
credits you win, the maximum bet per game is 10 credits. 
The computer will deal your hand, showing fully—defined 
cards. You have the option of of holding any (Cor none) 
of the cards, just by pressing the 1, 2, 3, 4 or 5 keys 
(where 1 is the Leftmost card, and 5 is the one on the 
hard right). Pressing 'C' allows you to cancel your 
holds. | 


When you've decide which cards you wish to discard, 
press RETURN and the computer will deal out your 
replacement cards, and then look to see if you have won 
or not. 


If you don't win, a new hand will begin. If you do win, 
you'll be given the chance to double your winnings 
(double or nothing). 


If you decide to forgo this option, your winnings will 
be added to your credits total, and anew hand will 
begin. If, however, you decide to bet, a single card 
wilt be dealt, face down. You have to guess whether it 
will be high (six through to a king) or Low (ace to 
five). You do this by pressing 'B' (for big) or 'S' (for 
small, of course). If you are right, your winnings will 
be doubled, and you'll get the chance to play ‘double or 
nothing! with that amount again. 
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1 V1=3542962W1=549276°5A1=3549277 25 H1=54273°5L1 


=S549272 

3 CO=54272: CREDIT=19 

6 DIMDD(13) ,EE(13) 

19 POKES3289,5:POKE53281,9 


11 PP(1)=596:2PP(2)=196°PP (3) =25:PP (4) =16 
>PP(5)=7:PP(6) =3:PP(7)=2:PP(8)=1 

12 FORA=1TO13:DD(A)=G°:EE(A) =G°: NEXT: BB=9 
289 AS="{ILT BLUIN#F#FKEKKN N#FKEKMN NEFFEBM N 


HHCY NE HEY" 
39 QS="%{REDIVVVVVILT BLU?’ 


LT BLU}” %{REDSVVVVVILT BLU?’ 
VE{LT BLU}? 


*#LREDSVUVUVVUV 


*SCREDIVUVV 


F{REDIVVUVVVELT BLU}’" 


45 WH="MFSFFFSEN NFFFFEN NFSFESSEN MSBFEEZEEN 0) 


FESEEN" 


58 PRINT"{CLR}¢(HOME}{CUR DN} {CUR DN3{CUR 
DN}{CUR DN}{CUR DN} {CUR DN{CUR DN TCUR 


DN3{CUR DN3{CUR DN}{CUR DN}" 


Be Rett ase ER INI GS PRINTS ERIN GS PEt 
>PRINTQS: PRINTQS$: PRINTQS$: PRINTWS 


76 PRINT"CHOME? (CUR DNF TCUR RTF{CUR 
CUR RTI{CUR RT}{CUR RT}{CUR RT3{(CUR 
CUR RTI{CUR RTF{I{CUR RTF(CUR RTFCCUR 
CUR RTF{CUR RT S{CUR RTFICUR RTFICUR 
CWHT 35909" 


CUR RT}{OR}ROYAL FLUSH 
Yi PRINT"{CUR RT3{CUR RTFTCUR 
{CUR RTFCCUR RTICCUR RTS(CUR 
S{CUR RTFCCUR RTFICUR RTFICUR 
+{CUR RTFCCUR RTFCCUR RTFLCUR 
RAIGHT FLUSH{WHT}> 1998" 

72 PRINT"{CUR RTSICUR RTF TCUR 
{CUR RTFTCUR RTSTCUR RT 3 {CUR 
{CUR RTIC{CUR RTFCCUR RTC CUR 
{CUR RTF{CUR RTI{CUR RTFI{CUR 
R OF A KIND{WHT} 25" 

73 PRINT"{CUR RTF{CUR RTF{CUR 
{CUR RTFCICUR RTFICUR RTC CUR 
3{CUR RT3{CUR RTF {CUR RTF{CUR 
{CUR RTF{CUR RTSCCUR RTC CUR 
LL HOUSE{WHT 3 "PP (4) 

74 PRINT"{CUR RTF{CUR RTSCCUR 
{CUR RTF{CUR RTFCCUR RT {CUR 


+{CUR RTFC(CUR RTSI CUR RTFCCUR 
{CUR RTI{CUR RTF{CUR RT}{( CUR 
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RT3¢ 
RT3¢{ 
RTs¢ 
RT3¢ 


RTSC(CUR RT 
RT?{CUR RT 
RT3{CUR RT 
RTC BLUGST 


RT3({CUR RT 
RTs{CUR RT 
RTJ(CUR RT 
RT? {ORZFOU 


RT}{CUR RT 
RT}{CUR RT 
RT}<CUR RT 
RT3}<{BLUIFU 


RT?{(CUR RT 
RT3${CUR RT 
RT3({CUR RT 
RT C{ORIFLU 


SH {WHT 3 
735 PRINT" {CUR 
+{CUR RT SC(CUR 
3{CUR RTF{CUR 
{CUR RT3{(CUR 
REE QF A KIND 
76 PRINT"{CUR 
3{CUR RTF{CUR 
{CUR RTF{(CUR 
s{CUR RTFTCUR 
PAIRS 

“7/7 PRINT" {CUR 
+{CUR RTIC(CUR 
s{CUR RTF {CUR 
7{CUR RTZICUR 
E OR BETTER 


"PP (3) 

RTI {CUR RTFCCUR 
RT}{CUR RTF{( CUR 
RT3}{CUR RT3{CUR 
RT{CUR RT F{ICUR 
CWHT 3 "PP (6) 

RT?{CUR RTF{( CUR 
RT}{CUR RTFTCUR 
RT?}{CUR RTFC(CUR 
RTI{CUR RT}{CUR 


{WHT 3"PF (7) 


RTI{CUR RTF{CUR 
RT}{CUR RTFC{CUR 
RTI{CUR RTF{CUR 
RT}{CUR RTFC{CUR 
{WHT 3 "PP (8) 


RTJ{CUR RT 
RTI{CUR RT 
RTS{CUR RT 
RT}{BLUTH 


RTICTCUR RT 
RTI{CUR RT 
RT}CCUR RT 
RT{ORFTWO 


RT?{CUR RT 
RT}{CUR RT 
RTS{CUR RT 
RTC BLUSAC 


78 IFCREDIT=9THENPRINT"{CLRICTRVS ONS tTLT 
BLUSYOU NO LONGER HAVE ANY CREDITS LEFT. 


2-2" 2sEND 


1966 PRINT" {HOME;{CUR DN} {CUR DN}{CUR RT} 
{LT BLUSCREDIT: ";CREDIT 


1935 PRINT 


119 INPUT" {HOME} {CUR RT3{CUR RT} {CUR RT} 
{PUR} BET: "3 BET 
1141 IFBET=9THENPRINT"{HOME}{RVS ONI{LT B 
LUI¥*¥¥¥YOU MUST BET AT LEAST ONE CREDIT 
¥*¥{RVS OFF3}":G0TO0114 
112 IFBET>1@THENPRINT"{HOME}{RVS ON} {GRN 
3198 CREDITS IS THE MAXIMUM AT A TIME":GO 
TO115 
113 IFBET<=CREDITTHEN28¢ 
114 PRINT" {HOME} {RVS ON} CGRNIX¥X¥¥YOU DON’ 
T HAVE THAT MANY CREDITS. ¥¥%" 
115 FORA=1TO15@@: NEXT 
116 PRINT" CHOME3 

":GOTO11¢ 
126 IFBET>1@THENPRINT"{RVS ON}{LT BLUF*¥* 
¥¥1G CREDITS IS THE MAX. AT A TIMEX**":G 
o0T0114 
208 CREDIT=CREDIT-BET:PRINT"{HOME}{CUR D 
N3}<CUR DN3}<{CUR RT} "SPRI 
NT" {HOME}<{CUR DN}{CUR DN}{CUR RT3{LT BLU 
CREDIT: "3CREDIT 
295 FORA=1TO8:PP(A)=PP(A) BET! NEXT 
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266 PRINT" CHOME} {CUR 
{CUR RTS{CUR RTI{CUR 


{CUR RTF(CUR RTFICUR 
{CUR RT3{CUR RTI{CUR 
{CUR RTFTORFROYAL FLUSH 


267 PRINT"{CUR 


TI{CUR RTF(CUR 
T3{CUR RT3{CUR 


T3{CUR RTF{ CUR 


DN} (CUR 
RT{CUR 
RT?<( CUR 
RT?{ CUR 


RT3{CUR RT}{CUR 
RTI{CUR RTF{(CUR 
RTI{CUR RT} {CUR 


RTI{CUR RTFICUR 


TRAIGHT FLUSH{WHT3 "PP (2) 


243 PRINT"{CUR 
T3{CUR RT 3{CUR 


T3{(CUR RTC CUR 
T3{CUR RT} {CUR 


UR OF A KINDC(WHT > 


269° PRINT" {CUR 
T3{CUR RTFTCUR 
T3{CUR RT} {CUR 
T3}{CUR RTFCCUR 


ULL HOUSE WHT 3 
216 PRINT" (CUR 


T3{CUR RT} {CUR 
T3}{CUR RTF{ CUR 
T3{CUR RT}{CUR 
USH {WHT 3 
211 PRINT"{CUR 
TI{CUR RTF{ CUR 
T3{CUR RT} {CUR 
T3{CUR RTF{CUR 
HREE OF A KIND 
Z2i2 PRINT"{CUR 
T3€CUR RT}{ CUR 
T3{CUR RTF{CUR 
T3{ CUR RT} {CUR 
O PAIRS 

213 PRINT"{CUR 
TI{CUR RTFICUR 
T3{( CUR RTFTCUR 
TILCUR RTF(CUR 
CE OR BETTER 


RT3{CUR RT3{CUR 
RT3{CUR RT3{CUR 
RT}{CUR RT}{CUR 
RT3{CUR RT3{CUR 
"PP (3) 

RT3{CUR RT3{CUR 
RT}{CUR RT}{CUR 
RT3{CUR RT3{CUR 
RT}{CUR RT3{CUR 


"PP (4) 
RT}<{CUR RT?{CUR 


RTS{CUR RT ZTCUR 
RTICCUR RTFCCUR 
RTS{CUR RTS{CUR 
"PP (3) 

RTI {CUR RTF{ CUR 
RT{CUR RTF{(CUR 
RT3{CUR RTS(CUR 
RT{CUR RTFTCUR 
CWHT? "PP (4) 

RT?{ CUR RT3{ CUR 
RT3{CUR RTF{CUR 
RT?{CUR RTF{CUR 
RT3{CUR RTFCCUR 


CWHT? "PP (7) 


RTS{(CUR RTF{ CUR 
RT?{(CUR RTS(CUR 
RTS{ CUR RTC CUR 
RT?{CUR RTF{( CUR 
{WHT 3 "PP (8) 


RTS{CUR 
RT?{CUR 
RT?{ CUR 
RT( CUR 
(WHT "PPC(1) 


RT 3 
RT 3 
RT 3 
RT > 


RT3${CUR R 
RT?{CUR R 
RTS{CUR R 
RT?{ BLUGS 


RT?{CUR R 
RTS{CUR R 
RT?{CUR R 
RT? {ORFFO 


RTSi CUR R 
RT?{ CUR R 
RTs{CUR R 
RT?{BLUGF 


RT?{CUR R 
RT?(CUR R 
RT?{CUR R 
RTF CTORSFL 


RT?{CUR R 
RT?{CUR R 
RT?{CUR R 
RTI {BLUIT 


RT?{CUR R 
RT?{CUR R 
RT3{CUR R 
RT?{OR3TW 


RTs{CUR R 
RT(TCUR R 
RT{CUR R 
RT?{TBLUGA 


219 FORA=1TOS:C (A) =INT (RND(1)#13) +1°NEXT 
226 IFC(1)=C (2) ANDC (2) =C (3) ANDC (3) =C (4) A 
NDC (4) =C (35) THEN219 
236 FORA=1TOS: CC (A) =INT (RND(1)*¥4) 4+1°NEXT 
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2499 TFC(1)=C (2) ANDCC(1)=CC(2)0RC(1)=C(3) 
ANDCC (1) =CC (3) THEN219 
241 IFC(1)=C (4) ANDCC (1)=CC (4) 0RC(1)=C(5) 
ANDCC (1) =CC (5) THEN219 
2590 IFC(2)=C(1) ANDCC (2) =CC (1) 0RC (2) =C (3) 
ANDCC (2) =CC (3) THEN219 
291 IFC (2)=C (4) ANDCC (2) =CC (94) ORC (2) =C (35) 
ANDCC (2) =CC (5) THEN219 
268 IFC (3)=C (4) ANDCC (3) =CC (94) ORC (3) =C (35) 
ANDCC (3) =CC (5) THEN219 


276 
496 
491 


CUR 
CUR 


CUR 
492 
CUR 
CUR 
CUR 
CUR 
AGS 
CUR 
CUR 
CUR 


CUR 
CUR 
CUR 
494 
CUR 
CUR 
CUR 
CUR 


CUR 
CUR 


CUR 
495 


cuR 


CUR 
CUR 


CUR 
CUR 


CUR 


IFC (4) =C (5) ANDCC (4) =CC (35) THEN219 


FORT=1TOS 
IFT=1THENPS=" {HOME>} {CUR 


DN {CUR DN3{CUR DN (CUR 
DN3{CUR DN3{CUR DN3{CUR 


DN" 


IF T=2THENPS="{HOME3 {CUR 
DN?{ CUR DN;SCTCUR DN CCUR 
DN {CUR DN}CCUR DN3{CUR 
DN;({CUR RTFC{CUR RTS CTCUR 
RTS{CUR RT3{CUR RT} {CUR 


IFT=STHENPS=" (HOMES (CUR 


DN {CUR 
DNC{CUR 
DN?{CUR 
RT3{(CUR 
RT?{CUR 
RT?{ CUR 


DN?{CUR 
DN;{CUR 
RT3{CUR 
RT?7<( CUR 
RT3{CUR 
RT?" 


DNI{CUR 
DN; {CUR 
RT (CUR 
RT {CUR 
RT3{CUR 


IFT=4THENPS="{HOME} {CUR 


DNC CUR 
DN3{CUR 
DN3 {CUR 
RT {CUR 


RT>?¢(CUR 
RT?{(CUR 


RT?{CUR 


DN?{CUR 
DN {CUR 
RTC CUR 
RT3{CUR 
RT?{CUR 
RT3{€CUR 
RTs{CUR 


DN (CUR 
DN {CUR 
RT{CUR 
RTS{ CUR 
RT}{CUR 
RTI {CUR 
RT?{CUR 


IFT=STHENPS="{HOME}3 {CUR 


N3CCUR 
N>{CUR 


DNC CUR 
RT>{CUR 


RT (CUR 
RT}{CUR 


RT?(CUR 


DN?{ CUR 
DN;<{CUR 


RT?({CUR 
RT3 {CUR 


RT3(CUR 
RT3{CUR 
RT?{CUR 


DN3( CUR 
DN?{CUR 


RT}{CUR 
RT?{CUR 
RT3{CUR 
RTs {CUR 
RT?{CUR 
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DNS {CUR 
DN; {CUR 
DN( CUR 


DNZ{ CUR 
DN3{CUR 
DNF {CUR 
RT{( CUR 
RT3" 

DN( CUR 
DN{ CUR 
DNFTCUR 
RT?{ CUR 
RT}{ CUR 
RT{CUR 


DN (CUR 
DN {CUR 
DN {CUR 
RT3{(CUR 
RT3{ CUR 
RT3{CUR 
RTI{CUR 
RT{CUR 
DN{CUR 


DN;tCUR 
DN>{CUR 


RT?t(CUR 
RTI{CUR 
RT?{( CUR 
RT?{ CUR 
RTs (CUR 


DNi¢ 
DNi¢ 
DING 


DNC 
DN3¢ 
DN 
RT3¢ 


DNi¢ 
DNit 
DNi¢< 
RT3¢ 
RT3¢ 
RTs¢ 


DIN> ¢ 
DN 
DNi¢ 
RTF¢ 
RTs¢ 
RTs¢ 
RT3¢ 
RT>" 
DN>¢ 


DN3¢ 
DN¢ 


RTs 
RT?¢ 
RT3¢ 
RT>¢ 
RTz¢ 


CUR 
CUR 
416 


426 
43G 


44g 
445 


446 


KES4272,98;:RESTORE: GOTO45¢ 
447 POKES4273,A;: POKES4272, Bi POKES4276,96: 
GOTO445 


4428 


449 
459 


455 
466 
461 


5 3 
462 P 


4,53 


DATA17, 37,19,63, 21,154, 22, 227 
DATA25,177,-1,-1 
NEXT 
POKEV1,15:POKEW1,9:POKEA1,@ 
GETAS: IFAS=CHRS (13) THENSSS 

PRINT" {HOME}{RVS ON} {GRN3PRESS 1 
TO HOLD CARDS" 

RINT: PRINT"{YEL3}{CUR DN}? RETURN’ 


RTI{CUR RT}{CUR RTI{L{CUR RTI{CUR RT3{ 
RT{CUR RT}{CUR RT}" 

IFCC (T) =1THENGOSUBI 989 
IFCC (T) =2THENGOSUB2999 
IFCC (T) =STHENGOSUBZ EGE 
IFCC (T) =4THENGOSUB4999 
POKEV1,15!:POKEW1,17:POKEA1,9 
READA: READB: IFB=- 1 THENPOKES4273,9!:P0 


2 


TO 


DEAL": PRINT: PRINT"{CUR DN} {CUR DN {CUR 
TO CANCEL HOLDS" 


476 IFAS="1" THENPRINT"{(GRN;CHOME} (CUR 


DN {CUR DN3’C’ 


si CUR 
7{CUR 
+{CUR 


+{ CUR 
3{CUR 


+{CUR 


3 {CUR 
3 {CUR 


+{CUR 
+{ CUR 


+ < CUR 


DN {CUR 
DN{CUR 
DN {CUR 
DN3< CUR 


DNS${CUR DNI{CUR 
DN?{CUR DN?<t CUR 
DNS(CUR DNI?{CUR 
DN{CUR DN{(CUR 


RTSHELD. "2CA(1)=1 
471 IFAS="2" THENPRINT" C(GRN}CHOMES; (CUR 


DN3{CUR 
DN{CUR 
DN {CUR 
DN3{CUR 
RT?{CUR 
RT}<{ CUR 


CA(2)=1 
472 IFAS="S3" THENPRINT"(GRN3> CHOMES (CUR 


+{CUR 
3 {CUR 


7{CUR 
+{CUR 
7{CUR 
3{ CUR 
+{(CUR 
+{CUR 


DN{CUR 
DNS {CUR 
DN?{CUR 
DN {CUR 
RT{CUR 
RT3{CUR 
RT (CUR 
RT{CUR 


DN{CUR DNC CUR 
DN {CUR DN?{CUR 
DN(TCUR DNI{CUR 
DNSCTCUR DN {CUR 
RTI{CUR RTF{CUR 
RT?{CUR RTF{(CUR 


DN}{CUR DN C(CUR 
DNSTCUR DN} {CUR 
DN{CUR DNFCT(CUR 
DNS{CUR DNF{CUR 
RT#{ CUR RTS(CUR 
RT?{CUR RTF{ CUR 
RT${ CUR RT (CUR 


DN {CUR 
DN( CUR 
DNF{ CUR 
DN; {CUR 


DNF{CUR 
DN{ CUR 
DN (CUR 
DNI{CUR 
RT?{ CUR 


RT}HELD. 


DN; {CUR 
DN?{ CUR 
DN?{(CUR 
DNS tT CUR 
RT3{ CUR 
RT {CUR 
RT3{CUR 


RTSHELD. "2 CAS) =1 
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DN 
DN 
DN 
DIN 
DN 


DN 
DN 
DN 
DN 
DN 
RT 


DN 
DN 
DN 
DN 
DN 
RT 
RT 
RT 


4% 
>£CUR 


3 {CUR 
+< CUR 
>{CUR 
+( CUR 
s{CUR 
7{ CUR 
3;{CUR 


HELD. 


DNS {CUR 


DN; {CUR 
DN3{CUR 
DN {CUR 
RT?{CUR 
RT3{ CUR 
RT3{CUR 
RT( CUR 
RT?{CUR 


DN3{CUR DN {CUR 
DN? {CUR DN CCUR 
DNS{CUR DN {CUR 
DN?{CUR DN: CCUR 
RTS{CUR RTT CUR 
RT}{CUR RTF{CUR 
RT3{CUR RTFTCUR 
RT}{CUR RTIICUR 
RTS{CUR RTFCCUR 


Ge Ona ee 


DNF{CUR 
DN}{CUR 
DN{ CUR 
DN {CUR 
RT?{CUR 
RT?{CUR 
RTI{CUR 
RT?{CUR 
RTITCUR 


479 IFAS="S5" THENPRINT" {GRN}3 {HOME} {( CUR 


3{CUR 
+{ CUR 
s{CUR 
s{ CUR 
3{ CUR 
s{ CUR 
3{CUR 
3{ CUR 
7{ CUR 
+{ CUR 
3 {CUR 


475 IFAS="S" THENPRINT"{GRN HELD. 


1 


DN (CUR 
DN{ CUR 
DN3{CUR 
DN {CUR 
RT3<{ CUR 
RT{CUR 


RT3< CUR 
RT?{ CUR 
RT?<( CUR 
RT?{CUR 
RTs; (CUR 


DN}{¢CUR DN (CUR 
DNS{CUR DNITCUR 
DNS{(CUR DNFTCUR 
DNF{TCUR DNC CUR 
RT3{CUR RTS(CUR 
RTS{( CUR RTF{CUR 
RT?{ CUR RT?( CUR 
RTS{ CUR RTF {CUR 
RT{(CUR RTFC(CUR 
RTS( CUR RTF{(CUR 
RT3{CUR RTF"; 


476 IFAS="4" THENCA(4) =1 


DN3(CUR 
DN {CUR 
DN;{CUR 
DNs {CUR 
RT?{ CUR 
RTs{ CUR 
RT (CUR 


RTS(CUR 
RT?{CUR 


RT{CUR 


DN 


"SCA(S)= 


DN {CUR 
DN{ CUR 


DN{CUR 
DN{ CUR 
DN" 5 


477 IFAS="C”" THENPRINT"CHOME?; (CUR 
DN}<{CUR DN3{CUR DN}{CUR DN3{ CUR 
DNICUR DNIC(CUR DN {CUR DN:tTCUR 
DN{CUR DN3{CUR DN}{CUR DN}{CUR 
DN{CUR DN {CUR DN}{CUR DN-C{CUR 

473 IFAS="C"THENPRINT" 

"SF ORA=1TOS: CA(A) =9 

479 IFAS="C”" THENFORA=1TO5:CA(A) =82 NEXT 

49°99 GOTO469 

99O BS="{LT BLU}DZLREDIVYVVVV{LT BLU}’":BB 

S="{LT BLUISZCREDIVVVVVEILT BLU? "3 CS="CLT 
BLUSSZCREDIVVVVVILT BLU}’":CC$="{LT BLU} 

*#LIREDIVVVUVVELT BLU?’ " 

9981 DS="{LT BLUSZLREDIVVVVUV{LT BLU}’":DD 

S="{LT BLUZZCREDIVVVVVILT BLU’ "ES="{LT 
BLUS%{REDIVUVVUVILT BLU}7" 

S362 PS#(1)="{HOME{ CUR DN {CUR DN:{CUR DN 

7{CUR DN{CUR DN} {CUR DN}{CUR DNI{CUR DN 
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*+{CUR DN {CUR DNF{CUR 


pe 


V93 PS(2)="{HOMES {CUR 
+{CUR DNICCUR DN {CUR 
7{CUR DN3{CUR DN3{CUR 


{CUR RTICCUR RTFCCUR 
{CUR RT3{CUR RT} {CUR 


399 P$(3)="C{HOMES (CUR 


>{CUR 
+{CUR 
3{ CUR 


*{CUR 
+{CUR 


+ {CUR 


DN{CUR 
DN {CUR 
RT3{ CUR 


RT3<t CUR 
RTF} (CUR 


RT?" 


DN} {CUR 
DN; {CUR 
RT{CUR 


RT?(CUR 
RTS{ CUR 


385 PS(4)="{HOMEC{CUR 


+( CUR 
3{CUR 


3{CUR 
3{CUR 


3{CUR 
>< CUR 


7{CUR 


DNCT CUR 
DN S(T CUR 
RT?<( CUR 
RT?{ CUR 
RT< CUR 
RT?{ CUR 


RT}{CUR 


DN {CUR 
DN>tTCUR 
RT{CUR 
RT3{CUR 
RT( CUR 
RT?{CUR 
RTI {CUR 


39H96 PSB(5)="{C{HOME {CUR 


+{ CUR 
+{ CUR 


+{ CUR 
3{CUR 


+{ CUR 
3{ CUR 


7 {CUR 
+{CUR 


+ {CUR 


387 FORA=1TOS: IFCA(A)=1THENS11 


DN? (CUR 
DN3<{CUR 
RT}{CUR 
RT?{CUR 
RT} (CUR 
RTI{CUR 


RT}C{CUR 


RT}{ CUR 
RT}{CUR 


DNF {CUR 
DN {CUR 
RT}(CUR 
RTS( CUR 
RT}{CUR 
RTI(CUR 
RT?{CUR 
RT?{ CUR 
RT3" 


DN {CUR 


DN>{CUR 
DN{CUR 
DNF{CUR 
RT?{CUR 
RT>" 

DN}{ CUR 
DN{ CUR 
DN; {CUR 
RT{CUR 
RT?{CUR 
RT(CUR 


DN {CUR 
DN{ CUR 
DNS{CUR 
RT?{CUR 
RT3{CUR 
RT?({CUR 
RT? {CUR 
RT} {CUR 
DN? {CUR 
DN¢( CUR 
DN3{CUR 
RT{CUR 
RT?{( CUR 
RTI {CUR 
RT3{(CUR 
RT?{CUR 
RT?{ CUR 


DNC CUR 


DN>{CUR 
DN}( CUR 
DN3{ CUR 
RT}{ CUR 


DN {CUR 
DN3{CUR 


DN?{CUR 
RTF{CUR 
RT}(CUR 
RTF{CUR 


DN?{CUR 
DN}><{CUR 
DN? {CUR 
RT} {CUR 
RT3{CUR 
RT? {CUR 
RT} {CUR 
RT?" 

DN? {CUR 
DN} {CUR 
DN?{CUR 
RT? {CUR 
RT} {CUR 
RT}? CUR 
RT?{CUR 
RT?{CUR 
RT?{CUR 


DN 


DN 
DN 
DIN 
RT 


DN 
DIN 
DN 
RT 
RT 
RT 


DN 
DN 
DN 
RT 
RT 
RT 
RT 


DN 
DN 
DIN 
RT 
RT 
RT 
RT 
RT 
RT 


598 PRINTPS(A)3; :PRINTBS: PRINTPS(A) +" (CUR 
DN3"5 ;:PRINTBBS: PRINTPS(A)+"{CUR DN}3{CUR 
DN#"5:PRINTCS 

IGF PRINTPS#(A)+"{CUR 

"5S ;PRINTCCS: PRINTPS(A)+"{CUR 

{CUR DN 3CCUR DN"; (> PRINTDS 

516 PRINTPS(A)+"{CUR DN CCUR 

{CUR DN {CUR DN"5 ;-PRINTDDS: PRINTPS (A) +" 

{CUR DN} {CUR DN {CUR DNF CCUR DN{CUR DN} 

(CUR DN"5 ;sPRINTES 

311 NEXT 
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DN{ CUR 


DNS{ CUR DIN> 
DNS<7CUR DN} 


DN?{€CUR DN? 


31S 
314 
315 
316 
ILO 
JOG 
346 


3350 
ron be be) 


IFCA(1) =1THEN699 

B=INT (RND(1)¥13)+41:C=INT(RND(1)*¥4) 41 
IFB=C (1) ANDC=CC (1) THENS13 
CC1lI=HBI:CC(1)I=C 

IFC (1)=C (2) ANDCC (1) =CC (2) THENS13 

IFC (1)=C (3) ANDCC (1) =CC (3) THENS13 

IFC (1)=C (4) ANDCC (1) =CC (4) THENS13 

IFC (1)=C (5) ANDCC (1) =CC (5) THENS13 
P$S="{HOMES {CUR DN3{CUR DNI{CUR DNC 


UR DN3{CUR DN}{CUR DN} {CUR DN {CUR DNII{C 
UR DN3{CUR DN3{CUR DN}{CUR DN3{CUR DN}" 


3VO 
36D 


47) 
8a 


39D 
IP 1 


392 


T=1 
IFCC (1) =1THENGOSUBI1S9¢9 


IFCC (1) =2THENGOSUB2S99 
IFCC (1) =3THENGOSUB3999 


IFCC (1) =4THENGOSUBS999 
POKEV1,15:POKEW1,17:POKEA1,9 
READA: READB: IF B=-1THENPOKES4273,9:P0 


KES549272,6: RESTORE: GOTO699 


39S 


POKES4273,A:;POKES9272, 5B: POKES494276,90: 


GOTOS91 


690 
619 
615 
616 
626 
636 
646 
630 
655 


IFCA(2) =1 THEN? SE 

B=INT (RND(1)*12)+4+1°5C=INT (RND(1)%¥3) +1 
IFB=C (2) ANDC=CC (2) THEN699 
C(2)=B:CC(2)=C 

IFC (1)=C (2) ANDCC (1) =CC (2) THEN699 

IFC (2)=C (3) ANDCC (2) =CC (3) THEN6959 

IFC (2) =C (94) ANDCC (2) =CC (4) THEN699 

IFC (2) =C (35) ANDCC (2) =CC (3) THEN699 
PS="{HOMES {CUR DN} {CUR DNF {CUR DNIC 


UR DN3CCUR DN} {CUR DN {CUR DN3{CUR DNC 
UR DN3{CUR DN3{CUR DN}{CUR DN3{CUR DN3{C 
UR RTI{CUR RT}{CUR RTFCCUR RTICCUR RTFCC 
UR RT3{CUR RT}{CUR RT}" 


656 
6668 


676 
639 


69D 
691 


692 


T=2 

IFCC (2) =1 THENGOSUB196¢ 

IFCC (2) =2THENGOSUB299@ 

IFCC (2) =STHENGOSUB3 9996 

IFCC (2) =4THENGOSUBSS9IS 
POKEV1,15:POKEW1,17:POKEA1,9 


READA: READB: IFB=- 1 THENFPOKES4273,9:P0 


KE54272,9:RESTORE: GoTa79g 


693 


POKES4273,A:;POKES9272,B:POKE549276,9: 


GOTOQ6?1 
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7B 
7196 
71s 
716 
726 
736 
7468 
73d 
Ya3 
UR 
UR 
UR 
UR 


UR 
UR 


726 
768 


776 
738 


584 


7P2 


GOT 
SOO 
310 
eis 
316 
8268 
S308 
349 
85d 
S35 
UR 
UR 
UR 
UR 
UR 
UR 


UR 
S36 


IFCA(3) =1THENSSS 
B=INT(RND(1)#12)+1:°C=INT(RND(1)¥3) 41 
IF B=C (3) ANDC=CC (3) THEN? 96 
C(S)=B:CC(3)=C 
IFC (3)=C (1) ANDCC (3) =CC (1) THEN? Sg 
IFC (2) =C (3) ANDCC (2) =CC (3) THEN? SG 
IFC (3) =C (4) ANDCC (3) =CC (4) THEN? 29 
IFC (3) =C (35) ANDCC (3) =CC (3) THEN? SE 
PS="{HOME {CUR 


DN?{CUR 
DN3{ CUR 


RTF{ CUR 
RT {CUR 


RT3{( CUR 
RT>" 


T=3 


DN? (CUR 
DN3{ CUR 
RT?{CUR 
RT?{CUR 
RT?{CUR 


DN>{CUR 
DN(CUR 
DN TCUR 
RT?{CUR 
RT?(CUR 
RTT CUR 


IFCC (3) =1THENGOSUBIG5S 


IFCC (3) =2THENGOSUB299S 
IFCC (3) =STHENGOSUB396¢ 


IFCC (3) =4THENGOSUB4999 
POKEV1,15:POKEW1, 17:POKEA1,15 


READA: READB: IFB=- 1 THENPOKE54273,9:PQ 
KE54272,9:RESTORE: GoTOosgs 
793 POKE54273,A!POKE54272, B!POKE5S4276,@9: 


O79 1 


IFCA (4) =1 THEN?SSS 
B=INT (RND(1)%12)+1°C=INT (RND(1)%3) +1 
IFB=C (4) ANDC=CC (4) THENS9E 


C(4)=B: 


CC (4) =C 


DN{CUR 
DN}¢CUR 
DN{ CUR 
RTC( CUR 
RT (CUR 
RT?( CUR 


DN CC 
DN Z{C 
DNS{C 
RT{C 
RTI<C 
RTF{C 


IFC (94) =C (1) ANDCC (4) =CC (1) THENSSSG 
IFC (4) =C (2) ANDCC (94) =CC (2) THENSSS 
IFC (3) =C (4) ANDCC (3) =CC (49) THENSSS 
IFC (4) =C (5) ANDCC (4) =CC (5) THENSSS 
PS="{HOME {CUR 


DN} {CUR 
DN} {CUR 
RT?<{CUR 
RT3€CUR 
RT}<CUR 
RT3{CUR 
RT}<{CUR 
T=4 


DN3 {CUR 
DN {CUR 
RT3{CUR 
RT?{CUR 
RT?{€CUR 
RT3(CUR 
RT?{CUR 


DN? CCUR 
DN (CUR 
DN {CUR 
RT3{CUR 
RT?{( CUR 
RT?<{€CUR 
RT3{CUR 
RT?{CUR 


S60 IFCC (4) =1THENGOSUBISSS 
876 IFCC (4) =2THENGOSUBLSIS 
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DNS {CUR 
DN?{CUR 
DN {CUR 
RT3{(CUR 
RT?{CUR 
RTS{CUR 
RT?{( CUR 
RT?" 


DN{C 
DN{C 
DNZ{C 
RTFCC 
RTFt{C 
RT?z¢C 
RT3¢C 


S8@ 
B9q 


IFCC (4) =STHENGOSUBS S99 


IFCC (4) =4THENGOSUBS9996 
Sol POKEV1,15:POKEW1,17:POKEAI,9 


S92 READA: READB: IFB=-1THENPOKES4273,90:P0 
KE59272,90: RESTORE: GOTO9G@@ 


S93 POKES4273,A:POKES94272,B:POKES4276,9: 
GOTOS91 


PBB 


916 
915 


P16 
P26 


P3d 
P46 


Psd 
935 
UR 
UR 


UR 
UR 


UR 
UR 
UR 
UR 


UR 
P56 


P66 


oof 


IFCA (5) =1 THEN?8S 
B=INT (RND(1)%#12)+1°C=INT (RND(1)%¥3) +1 
IFB=C (5) ANDC=CC (5) THEN? SS 


C(3)=B: 


CC (35) =C 


IFC (5) =C (1) ANDCC (5) =CC (1) THENSSP 
IFC (35) =C (2) ANDCC (35) =CC (2) THENS SS 
IFC (5) =C (3) ANDCC (5) =CC (3) THENSSS 
IFC (4) =C (5) ANDCC (4) =CC (5) THENSSS 
PS="{HOME3 {CUR 


DN?3<{CUR 
DN>{CUR 


RTs{(CUR 
RT}{CUR 


RT?<{€CUR 
RT} {CUR 
RT?{(CUR 
RT} {CUR 


RT3<{CUR 
T=5 


DN {CUR 
DN (CUR 


RT3( CUR 
RT3{CUR 


RT?{CUR 
RT3{CUR 
RT}{CUR 
RT3${CUR 
RT} " 


DN3{CUR 
DN}¢(CUR 
DN; {CUR 
RTT CUR 
RT3?{CUR 
RT?{ CUR 
RT3{CUR 
RT{CUR 
RT3$<{CUR 


IFCC (35) =1THENGOSUB196¢2 
FCC (35) =2THENGOSUB2999 


DNF{ CUR 
DN?C( CUR 
DN?{CUR 
RTs{(CUR 
RT {CUR 
RT?(CUR 
RT3{CUR 
RT?( CUR 
RT?{ CUR 


DNZ{C 
DN{C 
DN fC 
RT3{C 
RTC 
RT3<{C 
RT?{C 
RTs{C 
RT3{C 


FCC (5) =3THENGOSUBS999 
IFCC (5) =4THENGOSUB4SSSEG 
?73 POKEV1,15:POKEW1,17:POKEA1,9 
749 READA: READB: IFB=- 1 THENPOKES4273,9:P0 
KES4272,6: RESTORE: GOTO9892 
9735 POKES494273,A:POKES4272,B:POQOKE54276,9: 
GOTO973 
9389 GOTOSG5D 
1996 REM 
1G1G IFC(T) =-1THENBS="“%{RED}IA 
7", BBS="% 
19626 IFC(T)=1THENCS="% 
EDsS{LT BLU: as 
19390 IFC(T)=1THENDS="% 


7 


P72 


ACLT BLU} 


7 


""SCCH="% {R 


7" > DDS="% 
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1949 IFC(T)=1THENES="%{REDIA 
163590 IFC(T) =2THENBS="%{RED}2 
7"; BBS="% C(RED3SC{LT BLU? me 
1969 IFC(T)=2THENCS="% a 
1676 IFC(T)=2THENDS="% i 
ED}S{LT BLU? vie 

19686 IFC(T) =2THENES="%{RED32 


? 


199 IFC(T)=3THENBS="%{RED}3 
7" ;BBS="% {REDISC{LT BLU? aia 
1196 IFC(T) =3THENCS="% oon 
ED}S{LT BLU? ae 

11196 IFC(T)=3THENDS="% is 
EDIS{LT BLU; sae 

1126 IFC (T) =3THENES="%{(REDi3 
1136 IFC(T) =4THENBS="%{(RED?4 
""3SBBS="%C(REDIS StLY BLU** 
1194@ IFC(T) =4THENCS="% ni 
1150 IFC (T)=4THENDS="% ae 
7S S{LT BLU}’" 

116@ IFC(T) =4THENES="%{(RED:4 
1176 IFC (T) =STHENBS="%{REDsS 
7" BBS="%{(REDIS S{LT BLU}? " 


1189 IFC(T)=STHENCS="% m0 
ED}S{LT BLU} *" 
11998 IFC(T)=STHENDS="% a0 


+S StLT BLU’ " 

1266 IFC(T) =STHENES="%{REDi5 
12190 IFC(T) =6THENBS="%{RED36 
7") BBS="%{REDIS S{LT BLU?’ " 


12206 IFC(T) =6THENCS="% za 
+S S{LT BLU" 
12398 IFC(T) =6THENDS="% 7H 


3S S{LT BLU’ " 

1294G@ IFC(T) =6THENES="%{RED+6 
12598 IFC (T) =/7THENBS="%(RED37 
""SBBS="%{( REDS S{LT BLU?" 
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AtLT BLU? 
2i{iLT BLU; 
~CCS="% 
>DDS="% {R 
2tLT BLU> 
S{LT BLU> 
2>CCS="% {RR 
>DDSt="% tR 
S{LT BLU; 
4{LT BLU? 
~-CCS="% 
>: DDS="%(RED 
4{LT BLU} 
SJ{LT BLU 
2>CCS="% {Rk 
>DDS="%TRED 
J{LT BLU; 
6{LT BLU? 
> CCS="%{RED 
> DDS="%( RED 
6{LT BLU> 


Zt{LT BLU} 


1269 IFC(T) =7THENCS="% 


7" CCH="%{(RED 


BLU 3 


BLU; 


BLU} 


BLU 


BLU +> 


BLU > 


BLU; 


BLU; 


7S § S{LT BLU?” 
1278 IFC(T) =7THENDS="% 7": DDS="%{ RED 
3S St{LT BLU?” 

128 IFC(T)=7THENES="%{RED?7 7{LT 

1299 IFC(T)=8THENBS="%{RED}8 S{LT 
7":BBS="%{(RED}S  S{LT BLU?" 

1398 IFC(T)=8THENCS="%{RED}S SILT 

"5 CCB="% = 

1316 IFC(T)=8THENDS="%{RED}S  S{LT 
7":DDS="%{REDIS S{LT BLU}’" 

1326 IFC(T)=8THENES="%{RED?}8 S{LT 

1338 IFC(T)=9THENBS="%{RED}9 {LT 

7": BBS="%{RED}S  S{LT BLU}’" 

1349 IFC(T)=9THENCS="%{RED}S  S{LT 
7":CCB="% {{REDIS{LT BLU} 7" 

1359 IFC(T)=9THEND#="%{RED}S S{LT 
7":DDS="%{REDIS  S{LT BLU?’" 

13690 IFC(T)=9THENES="%{RED}9 {LT 


7 


1378 IFC(T)=19THENBS="%{RED}19 1G{LT 
37 "IBBS="%CRED}S  S{LT BLU}’" 

1388 IFC(T) =19THENCS="%{RED}S S S{LT 
2° ":CCH="% ae 

1398 IFC(T)=19THEND$="%{RED}S S S{LT 
3° ":DDS="%{REDIS  S{LT BLU}’" 

1499 IFC(T)=19THENES="%{RED}19 19{LT 
yon 

1419 ILFC(T)=11 THENBS="%{REDIIS SI{LT 
3? ":BBS="%{RED}J J{LT.BLU}’" 

1428 IFC(T)=1L1THENC#S="%{RED3J J J{LT 
27 "2CCB="% x" 

143G IFC(T)=11THENDS="%{RED}J J I{LT 
27 "2DDS="%{RED}J J{LT BLU}’" 

1449 IFC(T)=11THENES="%{RED}IS SI{LT 
— 

145@ IFC (T)=12THENBS="%{RED3QS S@{LT 
37 ":BBS="%{RED}Q@ G@{LT BLU}’" 

1469 IFC(T)=12THENCS="%{RED3}@ @ Q{LT 


{AL ECCBa"% x" 
476 IFC(T)=12THENDS="%{RED}G @ Q{LT 


77" DDS="“%{(REDIG Q{LT BLU?’ " 
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BLU+> 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


1486 IFC(T)=12THENES="%{RED}@S SQ{LT BLU 
yom 

1999 IFC(T)=13THENBS="%{REDIKS SKILT BLU 
37 ":BBS="%(RED}K  K{LT BLU}’” 

159@ IFC(T)=13THENC#="%{RED}K K K{LT BLU 
7 "2 CCH="% x” 

1519 IFC(T)=13THENDS="%{RED3K K K{LT BLU 
37 "2DDS="%{REDIK  K{LT BLU?" 

1529 IFC(T)=13THENES="%{REDIKS SK{LT BLU 
ye 

1559 PRINTPS; :PRINTBS:PRINTPS+"{CUR DN3" 
5: PRINTBBS:PRINTPS+"{CUR DN3}{CUR DN3}"3:P 
RINTCS:PRINTPS+"{CUR DN3{CUR DN3{CUR DN} 
"3 :PRINTCCS:PRINTPS+"{CUR DN}{CUR DN3<{CU 
R DN3}{CUR DN3"3:PRINTDS 

156G PRINTPS+"{CUR DN}?<CUR DN3{CUR DN3{C 
UR DN3}{CUR DN3"3:PRINTDD#: PRINTPS+" {CUR 

DN3{CUR DN}{CUR DN}{CUR DN}{CUR DN}<CUR 

DN3"3 :PRINTES 

1999 RETURN 


2999 REM 

2818 IFC(T)=1THENBS="%(RED?A  A{LT BLU? 
? 313 8 BS= ay A ? 

2629 IFC (T) =1THENCS="% >"'CCH="% CR 
EDIZ{LT BLU} °” 

2O@3@ IFC(T)=1THENDS="% os Dps="% 


zen 


29499 IFC(T) =1THENES="“%{RED3A AtLT BLU? 


296590 IFC(T) =2THENBS="%{REDi2 2{LT BLU} 
7";BBS="% {RED} ZC{LT BLU} a 

29690 IFC(T) =2THENCS="% 7", CCS="% 
2976 IFC(T)=2THENDS="% 7", DDS="% {R 


ED}Z{LT BLU; ie 

293890 IFC(T) =2THENES="%{RED32 2{LT BLU; 
26968 IFC(T) =3S3THENBS="%C(REDIS St{LT BLU? 
7" BBS="% {REDSZ{LT BLU} es 


21966 IFC(T)=3THENCS="% 7"7,CCH%="% {R 
ED}Z{LT BLU; oe: 
2119 IFC(T) =3THENDS="% 7", DDS="% {RR 


ED}Z{LT BLU? em 
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2129 ITFC(T) =3THENES="%{RED?3 


Fn 


2130 IFC(T) =4THENBS="%{(REDI4 
7"; BBS="%(REDIZ Z{¢LT BLU?’ " 
21990 IFC(T) =4THENCS="% a 


215@ IFC(T)=4THENDS="% mre 
+Z Z{LT BLU?" " 

2160 IFC(T) =4THENES="%{REDI4 
21796 IFC(T) =STHENBS="%{RED}5 
7" BBS="%C(REDIZ Z{LT BLU}’" 


218@ IFC(T) =STHENCS="% a 
ED}Z{LT BLU} *" 
219@ IFC(T) =STHENDS="% aH 


i ae Z{LT BLU?’ " 

2290 IFC(T) =STHENES="%{(REDi5 
22196 IFC(T) =6THENBS="%{(RED}6 
7") BBS="%{REDIZ Z{LT BLU?’ " 


2228 IFC(T)=6THENCS="% 7H 
3Z 8 Z{LT BLU}?" 
2238 IFC(T) =6THENDS="% vm 


+2 Z{LT BLU3’" 

2299 IFC(T) =6THENES="%{RED}6 
2256 IFC(T) =7YTHENBS="%{RED}?7 
7" BBS="ZC(REDIZ Z{LT BLU?’ " 


2268 IFC(T)=7THENCS="% a 
3Z Z Z{LT BLU}’" 
2276 IFC(T)=7THENDS="% a 


3Z  Zt{LT BLU}? 

2288 IFC(T)=7THENES="%{RED}7 
2298 IFC(T) =8THENBS="%{RED38 
7" BBS="%{RED}Z Z{LT BLU}’" 
2308 IFC(T)=8THENCS="%{RED?Z 
7" CCH="% ~ 

2319 IFC(T) =8THENDS="%{RED}Z 
7"SDDS="%{RED}Z Z{LT BLU}’" 
2328 IFC(T)=8THENES="%{(RED?8 
2336 IFC (T)=9THENBS="%{RED?9 
7": BBS="%{RED}Z  Z{LT BLU}’" 
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Stir 


4{LT 


>CCSH="% 


4{LT 


St{LT 


>CCS="% 


ra Oe 


6{LT 


6{LT 


7{LT 


7{LT 


S{LT 


Z{LT 


Z2¢LT 


S{LT 


PI{LT 


BLU+> 


BLU > 


> DDS="% (RED 


BLU} 


BLU} 


tR 


>: DDS="%( RED 


BLUG 


BLU} 


:-CCS="%{(RED 


- DDS="%{( RED 


BLU} 


BLU? 


>CCS="%{RED 


>: DDS="%{ RED 


BLU} 


BLU +} 


BLU? 


BLU> 


BLU; 


BLU? 


2348 IFC(T)=9THENCS="%{RED}Z Z{LT BLU} 
7"2CCH="% {CRED}Z{(LT BLU} 7" 

2359 IFC(T)=9THENDS="%{RED}Z Z{LT BLU} 
7": DDS="%{REDIZ Z{LT BLU}’" 

2366 IFC(T)=9THENES="%{RED39 9{LT BLU? 
2378 IFC(T)=19THENBS="%{RED}19 19{LT BLU 
27 ":BBS="%C(RED}Z Z{LT BLU}’" 

2389 IFC(T)=19THENCS="%{RED}Z Z Z{LT BLU 
7 "2 CCH=H"% ne 

239@ IFC(T)=19THENDS="%{RED}Z Z Z{LT BLU 


3B DDSE BERED IZ Z{LT BLU?’ " 
49G IFC(T)=19THENES="%(REDI19 1@{LT BLU 


ee 

2419 IFC(T)=11 THENBS="%{RED3}IZ ZI{LT BLU 
+7": BBS="%{(REDI J J¢LT BLU?’ " 

24296 IFC(TI=H=1L1THENCS="%{RED3J J J{LT BLU 


27 "3CCB="% x" 
2436 IFC(T)=11THENDS="%{RED}J J J{LT BLU 


77 "3s DDSH="%{( REDIF I J{LT BLU}’" 
2499 IFC(T)=11THENES="%{RED}IZ ZI{LT BLU 


? it 


2458 IFC(T)=12THENBS="%{RED?QZ Z@{LT BLU 
37 ":BBS="%{RED}@ @t{LT BLU}’" 

2469 IFC(T)=12THENCS="%{RED3Q@ @ @{LT BLU 
27": CCH="% x" 

2476 IFC(T)=12THENDS="%{RED}@ @ @{LT BLU 
27 ":DDS="%(RED}Q@ GC{LT BLU}’" 

2489 IFC(T)=12THENES="%{RED}@Z Z@{LT BLU 
a 

2499 IFC(T)=13THENBS="%{RED}KZ ZK{LT BLU 
27 ":BBS="%C(REDIK  KCLT BLU}’" 

2599 IFC(T)=13THENC#="%{RED}K K K{LT BLU 
27 "3 CCB="% x" 

2519 IFC(T)=13THEND$="%{RED3K K K{LT BLU 


77"; DDS="%{REDIK K{LT BLU?’ " 
2526 IFC (T) =13THENES="%{RED+KZ ZKILT BLU 


i550 PRINTPS5 ;:PRINTBS: PRINTPS+"{CUR DN}" 
;:PRINTBBS:PRINTPS+"{CUR DN?C(CUR DN3"35 °P 
RINTCS: PRINTPS+" {CUR DN}{CUR DN}{CUR DN} 
"Ss =PRINTCCS: PRINTPS+"{CUR DN} {CUR DNZCCU 
R DN} {CUR DN3"3;:PRINTDS 


2569 PRINTPS+"{CUR DN} {CUR DNF CCUR DNCC 
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UR DNS{CUR DN3"5 (> PRINTDDS: PRINTPS+" {CUR 
DN} {CUR DN3{(CUR DN}{CUR DN}{CUR DNC(CUR 
DN3"5 ;:PRINTES 

2999 RETURN 


3989 REM 

319 IFC(T)=1THENBS="%{GY 33A ACLT BLU 
2°": BBS="% a 

3828 IFC(T)=1THENCS="% ""2CCH="% {G 
Y BACLT BLU} 7" 

3838 IFC(T)=1THENDS="% 7": DDS="% 


7 it 


3G4@ IFC(T)=1THENES="%{GY 334A ACLT BLU 
ees 
38950 IFC(T) =2THENBS="%{GY S332 2{LT BLU 


7’":BBS="% {GY SIACLT BLU} in 
3969 IFC(T) =2THENCS="% 7", CCH="% 
3978 IFC(T) =2THENDS="% 7"; DDS="% {G 


x SIATLT BLU? es 
089 IFC(T) =2THENES="%{GY 332 2t{LT BLU 


ps 
3999 IFC(T)=3THENBS="%{(GY 333 S{LT BLU 
+7 ";BBS="% {GY SIACLT BLU? en 


3199 IFC(T) =3THENCS="% 7"3CCH%="% {G 
Y S3ACLT BLU? os 
31190 IFC(T) =STHENDS="% 7" DDS="% {G 


Y S3}ACLT BLU; a 

$120 IFC(T) =3THENES="%{GY 333 S{LT BLU 
Ye 

$138 IFC(T) =4THENBS="%{GY 334 4{LT BLU 
17" BBS="%{GY 3:3A ACLT BLU}’" 

31990 IFC(T) =4THENCS="% 7",CCS="% 
S158 IFC(T) =4THENDS="% 7" DDS="4{GY 
3A ACLT BLU?’”" 

3166 IFC(T) =4THENES="“%{GY 334 4{LT BLU 
died 

3179 IFC (T) =STHENBS="%{(GY 335 2J{LT BLU 
+7"; BBS="%{GY 333A ACLT BLU}’" 


2189 IFC(T) =STHENCS="% 7" TCCH="% iG 
Y S3ACLT BLU; ed 
391996 IFC(T) =STHENDS="% 7"; DDS="%{(GY 


3A ACLT BLU}’*" 
3299 IFC(T) =STHENES="%{GY 335 S{LT BLU 
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oe 
3218 IFC(T) =6THENBS="%{GY 336 6{LT BLU 


+7" BBSB="%{GY 353A ACLT BLU?’ " 


$226 IFC(T) =6THENCS="% 77 CCH="%{(GY 
3A ACLT BLU?’ " 
$239 IFC(T) =6THENDS="% 7"2 DDS="%{GY 


3A ACLT BLU?’" 

32499 ITFC(T) =6THENES="%{GY 336 6{LT BLU 
es 

$2590 IFC(T) =7THENBS="%{GY 337 Z{LT BLU 
+7?" BBS="%{GY 3A ACLT BLU?’ " 


3269 IFC(T) =7THENCS="% 7", CCH="ZC(GY 
333A A ACLT BLU?’*" 
32708 IFC(T) =/7THENDS="% 7", DDS="%(GY 


33}A ALT BLU}’” 

3288 IFC(T)=7THENE#="%{GY 337 7{LT BLU 
_— 

3298 IFC(T)=8THENBS="%{GY 338 8{LT BLU 
77":BBS="%(GY 334 ALLT BLU}’" 

3368 IFC(T)=STHENCS="%{GY 334 ACLT BLU 
7 "2CCH="% eae 

3318 IFC(T)=8THEND$="%{GY 334 ALT BLU 
77 ":DDS="%{GY 334 ACLT BLU}?" 

3328 IFC(T)=STHENES="%{(GY 338 S8{LT BLU 


3339 IFC (1) =9THENB#="%(GY 339 {LT BLU 
77" BBS="%(GY 334 ACLT BLU}’" 

3349 IFC(T)=9THENCS="%{GY 33A ALLT BLU 
77":CCB="% (GY BACLT BLU 7%" 

33598 IFC(T)=9THEND#="%{GY 33A ALLT BLU 
77 "2DDS="%(GY 334 ACLT BLU}’" 

3368 IFC(T)=9THENES="%{(GY 339 {LT BLU 
pee 

3378 IFC(T)=19THENBS="%{GY 3319 19{LT BL 
U}’":BBS="%{GY 334 ALT BLU}?" 

3388 IFC(T)=1@THENCS="%{GY 33A A ACLLT BL 


Ud? "2CCH="% ae 

3398 IFC(T)=1STHENDS="%{GY 33A A ALLT BL 
Us’ "sDDS="%CGY 334 ALLT BLU}7" 

3498 IFC(T)=19THENES="%{GY 33198 1@{LT BL 
uy?" 

3419 IFC(T)=11 THENBS="%{GY 3334 AIL{LT BL 
U}?":BBS="%(GY 333 IJt{LT BLU}’” 

3428 IFC(T)=11THENCS="%{(GY 333 J JCLT BL 
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Us": CCH="% x" 
3439 IFC(T)=11THENDS="%{GY 333 J J{LT BL 


U7" :DDS="4ZIGY 33J J{LT BLU’ " 
349949 IFC(T)=11THENES="%{GY 333A AIJLLT BL 


i 
S459 IFC(T)=12THENBS="%{GY 33Q@A ABQ{ILT BL 


+7" BBS="4{GY 33Q Q{LT BLU?’ " 
S469 IFC(T)=12THENCS="%{GY 33@ @ @{LT BL 


UF": CCH="% x" 

3478 IFC(T)=12THENDS="%{GY 33@ @ @{LT BL 
U}7":DDS="%{GY 37Q@ G@t{LT BLU}7” 

348 IFC(T)=12THENES="%{GY 338A AG{LT BL 
we | 
3498 IFC(T)=13THENBS="%{GY 33KA AK{ILT BL 
U}’":BBS="%{(GY 33K K{LT BLU}’" 

359@ IFC(T)=13THENCS="%{GY 33K K K{LT BL 
Ui": CCH="% x" 

351@ IFC(T)=13THENDS="%{(GY 33K K K{LT BL 
U}7":DDS="%{GY 33K  K{LT BLU}’” 

3528 IFC(T)=13THENES="%{GY 33KA AK{LT BL 
ur?" | 

355@ PRINTPS; :PRINTBS:PRINTPS+"{CUR DN" 
;:PRINTBBS:PRINTPS+"{CUR DN3{CUR DN}"3:P 
RINTCS:PRINTP#+"{CUR DN3{CUR DN3{CUR DN} 
"3 :PRINTCCS:PRINTPS+"{CUR DN3}<{CUR DN} <CU 
R DN3{CUR DN3"5:PRINTDS 

3569 PRINTPS+"{CUR DN}{CUR DN}{CUR DN3<{C 
UR DN}{CUR DN3"3 :PRINTDDS: PRINTPS+" {CUR 
DN}{CUR DN}{CUR DN}{CUR DN}<{CUR DN} {CUR 
DN3"3:PRINTES 

3999 RETURN 


4962 REM 

4G1@ IFC(T)=1THENBS="%(GY 33A ALT BLU 
37": BBS="% o 2 

492@ IFC(T)=1THENCS="% 7":CCH="% {G 
Y 33X{LT BLU} 7" | 

4@3@ IFC(T)=1THENDS="% 7 "2 DDS="% 


2on 


494@ IFC(T)=1THENES="“%{GY 353A AtLT BLU 
Se 

49356 IFC(T) =2THENBS="“%{GY 372 2{LT BLU 
+7 "sBBS="% {GY 3B3X{LT BLU} cor 

4869 IFC(T) =2THENCS="% 7", CCS="% 


4976 IFC(T) =2THENDS="% 7"2DDS="% t{G 
Y S3xXC{LT BLU? or: 

4989 IFC(T) =2THENES="%{GY 332 2{LT BLU 
ae 

4996 IFC(T) =3THENBS="“%{(GY 333 S{LT BLU 
>’ "SBBSB="% (GY BSIxC{LT BLU; oe 


4196 IFC(T)=3THENCS="% 7",CCSE="% {G6 
Y BS3X{LT BLU? poe 
41190 IFC(T) =3THENDS="% 7"SDDS="% {G 


Y SIX{LT BLU; oe 

9126 IFC(T) =3THENES="“%{GY 333 S{LT BLU 
ye 

41390 IFC(T) =4THENBS="%{GY 334 4{LT BLU 


2° "SBBS="%(GY 33X X{LT BLU}*" 
9149 IFC(T) =4THENCS="% 7" CCH="% 


41356 IFC(T) =4THENDS="% 7", DDS="Z{(GY 
33x X{LT BLU?’ " 

4160 IFC (T) =4THENES@="%{GY 334 {LT BLU 
Pee 

91790 IFC(T) =STHENBS="4{(GY 335 S{LT BLU 
77> "3; BBS="%{GY 33x X{LT BLUF* " 


41380 IFC(T) =STHENCS="% 7",CCH="% {G 
Y 33X{LT BLU} oe 
91960 IFC(T) =STHENDS="% 7" DDS="%{GY 


SIH #X{LT BLUs*" 

4266 IFC(T) =STHENES="“%{(GY 375 S{LT BLU 
ei 

42190 IFC (T) =6THENBS="%(GY 336 6{LT BLU 
+7 "2 BBS="%{GY BX - XCILT BLU’ " 


4226 IFC(T) =6THENCS="% 7", CCH="Zt(GY 
SIH X<{LT BLU?s’" 
94236 IFC(T) =6THENDS="% 7" DDS="%{(GY 


SIX X{LT BLU?’ " 

4299 IFC(T) =6THENES="Z%{GY 336 6{LT BLU 
yi 

42350 IFC(T) =7THENBS="%{GY 337 Y{LT BLU 
37" BBSB="%t{GY 33X X{LT BLU?" 


$266 IFC(T)=7THENCS="% 7", CCS="Z%{(GY 
3X X XE{LT BLU?” 
49276 IFC(T) =7THENDS="% 7 "2 DDS="Z{(GY 


Six X{LT BLU?" 
4289 IFC(T) =7THENES="%{GY 337 7{LT BLU 
a 
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4296 IFC(T) =8S8THENBS="“4{GY 338 StLT 

77 "2S BBS="B%LIGY 3x X{LT BLUF*" 

4390 IFC(T) =8STHENCS="%{(GY 33x ACLT 

37 "3; CCB="% a 

4310 IFC (T) =STHENDS="“4{GY 33% ACLT 

77> "2SDDS="4Zt(GY 3% X{LT BLU?" 

4326 IFC(T) =STHENES="%{GY 338 S{LT 

ye" 

4338 IFC(T) =9THENBS="%{GY 339 StLT 

+7" ;BBSB="%{GY 3X X{LT BLU?’ " 

439@G IFC (T) =STHENCS="4{GY 33X X{LT 

77 "3CCH="% {GY BIXCLT BLU? a 

943590 IFC(T) =STHENDS="%{GY 33 ALLT 

+7" DDBS="4IGY 35% X{LT BLU?" 

4369 IFC(T) =?9THENES="%{GY 339 ee 

,e4 

43798 IFC(T)=19THENBS="%{GY 33146 19{LT 
UF 7 "{BBSH="SBCIGY 33% A{LT BLU?’ " 

943890 IFC(T)=16THENCS="%{GY 33% & X{LT 


WI CCs="% Pay) 
S98 IFC(T)=19THENDS="%{GY 33k K RCILT 


U}7":DDS="%{GY 33X X{LT BLU?" 

4496 IFC(T)=19THENES="%{GY 3319 1G{LT 
up?" 

4419 IFC(T)=L1THENBS="%{GY 33I3X XI{LT 
U}7":BBS="%{GY 333 J{LT BLU?" 

4426 IFC(T)=11THENC#="%{GY 333 J J{LT 
Us? ":CCH="% x" 

443@ IFC(T)=11THENDS="%{GY 333 J IJ{LT 
U}*":DDB="%{(GY 3}J IJCLT BLUY’" 

4449 IFC(T)=11THENES="%{GY 333 XICLT 
Uy os 

445@ IFC(T)=12THENBS="%{(GY 33@X XQ{LT 
U}’":BBS="%{GY 33Q Q@{LT BLU?" 

44698 IFC(T)=12THENCS="%{GY 33@ @ Q{LT 
U7 ":CCH="% x" 

447% IFC(T)=12THENDS="%{GY 33Q@ @ Q{LT 
U}’":DDS="%{GY 33Q@ {LT BLUI’" 

448@ IFC(T)=12THENES="%{GY 330% XQ{LT 
uy?" 

4499 IFC(T)=13THENBS="%{GY 33KX XK{LT 
U}?":BBS="%{(GY 33K K{LT BLU}7" 

459@ IFC(T)=13THENCS="%{GY 33K K K{ILT 
UU": CCBH="% x" 
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BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BLU 


BL 


BL 


BL 


BL 


BL 


BL 


BL 


BL 


BL 


BL 


BL 


BL 


BL 


BL 


43190 IFC(T) =13THENDS="%{GY 33K K KE{LT BL 


Heoa pea tee cc SK K{LT BLU?" 
26 IFC(T)=13THENES="%{GY 33KX XK{LT BL 


uy} 
$559 PRINTPS; :PRINTBS:PRINTPS+"{CUR DN}" 
3 ->PRINTBBS: PRINTPS+"{CUR DN{CUR DN3"5°P 
RINTCS:PRINTPS+"{CUR DN3{CUR DN}{CUR DN} 
"S:PRINTCCS: PRINTPS+"(CUR DN} {CUR DN CCU 
R DN} {CUR DN3"3; :PRINTDS 

45690 PRINTPSt"{CUR DNIC{CUR DNILCUR DNCC 
UR DN3{CUR DN3"3 ;PRINTDDS: PRINTPS+"{CUR 

DN3{CUR DN} {CUR DN} {CUR DN} {CUR DN {CUR 

DN"; :PRINTES 

4999 RETURN 

ISGS REMKXXXXCARD DESTINCTIONX¥¥X*¥ 

5910 FORB=1TO13: FORA=1TOS: IFC (A) =BTHENEE 
(B) =EE(B) +1 7 


3929 NEXT: NEXT 
~9398 FORA=1TO013: IFEE (A) =4THEN6699 


5449 IFEE(A) =3THENBB=l 
3859 NEXT: IFBB=1THENS969 


39353 GOTQS99S5 
3969 FORB=1T013: FORA=1TOS: IFC (A) =BTHENDD 


(B)=DD(B) +1 
3970 NEXT: NEXT 
2688 FORA=1T013: IFDD(A) =2THEN699S 


GIS NEXT 
3895 IFBB=1THENBB=9: GOTO729¢6 


5996 FORA=1TO13:°EE (A) =6:DD(A) =9: NEXT 
S1GG REMKXXXXCARD DESTINCTIONXXX** 

51196 FORB=1T0O13:FORA=1TOS: IFC (A) =BTHENDD 
(B)=DD(B) +1 

IJLl2G NEXT: NEXT: FORA=1TO13: IFDD(A) =2THENB 
B=BBtl 

2130 NEXT: IFBB< 2THENFORA=1TO13: DD(A)=98:N 
EXT: BB=9: GOTOS159 

2199 GOTO?IGS 

SISG REMEKKXKCARD DISTINCT IONKXXKE 

5160 IFC(1)=C(2)0RC(1)=C(3)0RC(1)=C (4) 0R 
C(1)=C (35) THENS259 

S1iYG IFC (2)=C (3) ORC (2) =C (94) ORC (2) =C (35) TH 
ENS259 

31898 IFC(3)=C (4) 0RC (3) =C (5) THENS 2354 

5199 IFC(4)=C (35) THENS259 
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3298 FORB=13TO1LSTEP-1 
3219 FORA=1TOS: IFC (A) =BORC (A) =B-10QRC(A)= 
B-20RC (A) =B-3ORC (A) =B-4THENDD(B)=DD(B) +1 


3226 NEXT: NEXT: FORA=1TO13: IFDD(A) =STHENSG 
SOO 
3225 NEXT 


3230 FORA=1TOS: IFC (A) =10RC(A)=190RC(A)=1 
ORC (A) =120RC (A) =13THENNEXT : GOTO6899 
32496 FORA=1TO13:DD(A)=9: NEXT 

3299 REMEXHKKECARD DESTINCT IONKXXXXX 

3260 FORA=1TOS: IFC(A)=1THENDD=DD+1 

32/6 NEAT IFDD< 2THENS299 

2280 GOTO7699 

92H REMEXXKHXCARD DESTINCTIONXX¥¥¥ 


I38G IFCC(1)=CC (2) ANDCC (2) =CC (3) ANDCC (3) 
=CC (4) ANDCC (4) =CC (5) THEN? O98 


5316 GOTOLSsga 
69088 REMKXXXX¥XFULL HOUSEXXXXX* 
KIKKHKKHHKHKIHKKHKKKHKHKHERK 
6818 PRINT" CHOME3 
6926 PRINT"{HOME} {CUR DN}{CUR DNF<CUR DN 
+{CUR DN} " 
6639 PRINT" {HOME} {CUR DN3{CUR DN} {CUR DN 
+{CUR DN}{CUR DN}{CUR DN}{CUR DN}<CUR DN 
+{CUR DN}{CUR DN} {RVS ON} €GRNID 
OUBLE OR NOTHING(Y/N)" 
6949 PRINT" {HOME} {CUR DN} {CUR 
}{CUR DN}{CUR RT}{CUR RT}{CUR 
3{CUR RT}{CUR RT}{CUR RT}{CUR 
+{CUR RT}{CUR RT}{CUR RT}{CUR 
7{CUR RT3{CUR RT}{CUR RT} {CUR 


{ORFFULL HOUSE" 
O59 GETAS: IFAS<>""THEN61LES 


6968 FORA=1TO1LGS: NEXT 
6979 PRINT" {HOME} (CUR 
+{CUR DN} {CUR DN} {CUR 
3{CUR DN3{CUR DN} 
NOTHING(Y/N)" 


DN>{CUR 
RTs{CUR 
RT3{CUR 
RTs <(CUR 
RTS{RVS 


DIN 
RT 
RT 
RT 
ON 


DNS{ CUR DN {CUR 
DN}{CUR DN}{CUR 
{GRMN DOUBLE 


DN 
DN 
OR 


6980 PRINT" {HOME} {CUR 


3{(CUR 
7( CUR 


7{CUR 
3{ CUR 


DN;{CUR 
RT3{(CUR 
RT?+{CUR 
RT?{CUR 


RTs (CUR 
RT (CUR 


RT(CUR 
RT( CUR 
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DN?( CUR 
RT3{( CUR 
RT3i{ CUR 
RT?{CUR 
RTC CUR 


DNS {CUR 
RT(CUR 
RT {CUR 
RT;({CUR 


DN 
RT 
RT 
RT 


RTS{BLUGSFU 


LL HOUSE” 

6898 FORA=1TO196: NEXT: GOTO693¢ 

619G IFAS="Y"THENTT=4! NA=CREDIT: GOTO1L5S9¢ 
g 

6195 @1=54276: @2=54277! @3=54278: POKEQ1,9 
>POKEQG2, 15:POKEQ3,9 

6186 POKE5S4296, 15: POKEQ@2, 64: POKEQ3, 128:P 
OKEG1,17 | 

6118 FORA=CREDITTOCREDIT+19%BET:PRINT"{H 
OME}<{CUR DN}{CUR DN}{CUR RT}{LT BLU}CRED 
IT: "3A 

6139 POKE5S4273, 49: POKES49272, 209: POKES427 
3,92:POKE54272,@ 

6168 NEXT: CREDIT=A-1:GOTOIgS9aq 


6499 REMKXXXKXKXROVAL FLUSHEXRKXE 
KXEEKEHEKEEKEKHKK KKK HHKHHEE 


64190 PRINT" CHOME s 
6426 PRINT" THOME; (CUR DN CCUR DN 3S{CUR DN 


7{CUR DN? . 
64390 PRINT"{HOME3{CUR DN} {CUR DN3{CUR DN 


{CUR DN}{CUR DN} CCUR DN {CUR DN FCCUR DN 
{CUR DN3{CUR DN} {RVS ONS ({GRNID 
QUBLE OR NOTHING (Y/N) " 
64496 PRINT" {HOME} {CUR DN} {CUR RT3{CUR RT 
{CUR RT}C(CUR RTI {CUR RTFCLCUR RTS{CUR RT 
7{CUR RTS{CUR RTFICUR RT3{CUR RTS{CUR RT 
{CUR RTFC(CUR RT{CUR RTF CCUR RTFCCUR RT 
{CUR RTFCRVS ONFCILT BLUFROYAL FLUSH" 
6459 GETAS: IFAS‘ >" "THEN6S599 
6469 FORA=1T0190: NEXT 
6476 PRINT" {HOME} {CUR DNf{CUR DNS{CUR DN 
{CUR DN3CCUR DN3{CUR DN3{CUR DNF{CUR DN 
{CUR DN {CUR DN; {GRN}DOUBLE OR 
NOTHING (Y/N) " 
649890 PRINT"{HOMES (CUR DNS{TCUR RTS{CUR RT 
{CUR RT3<( CUR RTICCUR RTIC{CUR RTFCCUR RT 
S{TCUR RTS {CUR RTF{CUR RTZICUR RTF {CUR RT 
{CUR RT3I{CUR RTFCCUR RTI {CUR RTFCCUR RT 
7{CUR RT3{OR}3ROYAL FLUSH" 


6499 FORA=1TO1iGG: NEXT: GOTO6439 
S599 IFAS="Y"THENTT=1:NA=CREDIT: GOTO159¢ 


G 
6965 @1=54276: @2=54277: @3=54278: POKEQ1,¢ 
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'POKEG@2, 15: POKEQ3,¢ 

6596 POKE54296, 15! POKEQ2, 64: POKEQ3, 128:P 

OKEG@1,17 

6519 FORA=CREDITTOCREDIT+S@@*XBET:PRINT"€ 

HOME}{CUR DN}{CUR DN}{(CUR RT}{LT BLU}CRE 

DIT: "5A 

6539 POKE5S4273, 49! POKES4272, 200: POKES427 

3,9:POKE54272,9¢ 

6568 NEXT: CREDIT=A-1: GOTO1S9a¢ 

669G REMKXXXX*XFOUR OF A KINDXXXXX*¥ 
KHKKHKKHK KKK HIKE KKK III EEE 

6618 PRINT" CHOME} 

6620 PRINT" {HOME}<CUR DN}{CUR DN} {CUR DN 

+{CUR DN} > 

66398 PRINT"{HOME}{CUR DN}{CUR DN3{CUR DN 

{CUR DN} {CUR DN}{CUR DN?}<CUR DN}<{CUR DN 

3{CUR DN3{CUR DN?3 CRVS ON} {GRNID 

OUBLE OR NOTHING(Y/N)" 

6649 PRINT" {HOME}{CUR DN}{CUR 

{CUR RT}{CUR RT}{CUR RT}{CUR 

*{CUR RT}{CUR RTI{CUR RT}{CUR 

{CUR RT}{(CUR RT}{CUR RT}{CUR 

{CUR RTI{(CUR RT3{CUR RTF{RVS 

}FOUR OF A KIND" 

6659 GETAS! IFAS< >" "THEN6 798 

6660 FORA=1TO19@G: NEXT 

6678 PRINT" {HOME}{CUR 

}{CUR DN}{CUR DN}{CUR 

7€{CUR DN}{CUR DN3 

NOTHING (Y/N) " 


DNS{CUR 
RT>{ CUR 


RT3{CUR RT 
RT?{CUR RT 


ONS{LT BLU 


DIN 
RT 


DNS{CUR DNF {CUR 
DN} ¢€CUR DN:{CUR 
{GRN}DOUBLE 


DIN 
DN 
OR 


6689 PRINT" {HOME}{(CUR 


{CUR RTF CCUR RTFCCUR 
3{CUR RT {CUR RTF{CUR 


+{CUR RTFCCUR RTFCCUR 


DNS {CUR 
RT?{CUR 
RT{(CUR 
RT?{CUR 


DN} {CUR 
RT}{CUR 
RT}{CUR 
RT}<{CUR 


DN 
RT 
RT 
RT 


{CUR RT}{CUR RT3{CUR 
IND" 

6698 FORA=1T019@: NEXT: GOTO06639 

6798 IFAS="Y"THENTT=3! NA=CREDIT: GOTOL5S9@ 
g 

6795 @1=54276! Q2=549277! @3=54278: POKEQI,@ 
*POKEQ2, 15:POKEQ3,¢ 

6796 POKES4296, 15: POKEQ2, 64: POKEQ3,128:P 
OKE@1,17 


RT3${QRSFOUR OF AK 
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6718 FORA=CREDITTOCREDIT+25¥%BET:FRINT"{H 

OME}{CUR DN}{CUR DN}{CUR RT}{LT BLU}CRED 

IT: "3A 

6738 POKES4273, 49: POKES4272, 208: POKES 427 

3,9: POKES4272,@ 

6768 NEXT: CREDIT=A-1: GOTOIS 99a 

68GG REMKKXKXXKXXSTRAIGHT FLUSHKXXXXXS 
SEES OHHH HEE 

68@5 IFCC(1)=CC(2) ANDCC(2)=CC (3) ANDCC (3) 

=CC (4) ANDCC (4) =CC (5) THEN6499 

6819 PRINT" {HOME} 

6828 PRINT"{HOME} {CUR DN}{CUR DN3{CUR DN 

?{CUR DN} " 

6539 PRINT" {HOME} (CUR DN3}{CUR DN3{CUR DN 

{CUR DN}{CUR DN}{CUR DN}<{CUR DN}<CUR DN 

{CUR DN}{CUR DN} {RVS ON}<{GRNID 

OUBLE OR NOTHING(Y/N)" 

6848 PRINT" {HOME}{CUR DN3{CUR DN3<{CUR 

{CUR RT}{CUR RT}{CUR RT}C(CUR RT}<(CUR 

3{CUR RT}{CUR RT}{CUR RT}{CUR RT}{CUR 


{CUR RTFI(CUR RTFCCUR RTFCICUR RTFCCUR 
7{CUR RT3{CUR RT3{RVS GN} LOR} STRAIGHT 


USH” 
6859 GETAS: IFAS< >" "THEN696D 
6866 FORA=1TO196;: NEXT 
6870 PRINT" {HOMES {CUR 


{CUR DNF CCUR DNICCUR 
{CUR DN3ICUR DN} 


NOTHING (Y/N) " 


RT 
RT 
RT 


RT 
FL 


DN (CUR DNGTCUR 
DN}{CUR DN {CUR 
{GRN}DOUBLE 


6889 PRINT" {HOME}{ CUR 
{CUR RTFLCUR RTF(CUR 
3{ CUR RTF C{CUR RT} {CUR 
{CUR RTFCCUR RTC CUR 


DNF (CUR 
RT?{( CUR 
RTF( CUR 
RT( CUR 


DN; {CUR 
RT?{CUR 
RT (CUR 
RTI {CUR 


RT 


{CUR RT3{CUR RT}{LT BLU}STRAIGHT FLUSH" 
6899 FORA=1TO19@G: NEXT: GOTO6839 

6998 IFAS="Y" THENTT=2: NA=CREDIT: GOTO1L599 
Gi 

6995 @1=54276: @2=54277! @3=54278: POKEQI,@ 
"POKEG@2, 15: POKEQ3,9 

6996 POKE54296, 15: POKEQ2, 64: POKEQ3, 128:P 
OKE@1,17 

6918 FORA=CREDITTOCREDIT+1@@*BET: PRINT" { 
HOME}{CUR DN}{CUR DN}{CUR RT}{LT BLU}CRE 
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DIT: "3A 

69396 POKES4273, 49: POKES4272, 269: POKES42/7 

3,9: POKE54272,6 

69°69 NEXT: CREDIT=A-1:GOTO1LS999 

7IOGHD REMKKKXHKFLUSHEKKKEE 
KEKKKKKKKKKKEKKKEK 

7619 PRINT" CHOMEs 

7B26 oe DN3{CUR DN S{CUR DN 


CUR DN 7 
3555 Se ree oMesteus DN3}{CUR DN}{CUR DN 


*{CUR DN (CUR DN {CUR DNCCUR DNSCCUR DN 
{CUR DN3{CUR DN} C{RVS ON TGRND 
OUBLE OR NOTHING(Y/N)" 

“9496 PRINT" {HOMES {CUR DN3 {CUR 
{CUR DNF (CUR DNI{CUR RTFCCUR 
7{CUR RTF{CUR RTF{CUR RT3{CUR 
{CUR RTFC{CUR RTFCCUR RTFCCUR 
{CUR RTFC{CUR RT3{CUR RT3{CUR 
{RVS ON CLT BLUFLUSH" 

7950 GETAS: IFAS< >""THEN?7 199 
79869 FORA=1TO199:NEXT 
7678 PRINT" {HOME} {CUR 
7{CUR DNSC{CUR DN (CUR 
{CUR DN3{CUR DN} 
NOTHING (Y/N) " 


DN{CUR 
RT{( CUR 
RT3{CUR 
RTC(CUR 
RTS (CUR 


DN 
RT 
RT 
RT 
RT 


DN3(CUR DNF {CUR 
DN} {CUR DN{CUR 
{GRN>+ DOUBLE 


DN 
DN 
OR 


7888 PRINT” CHOME} {CUR 


+{CUR DNCTCUR 
{CUR RT3{CUR 
+{CUR RTC CUR 
s{CUR RT} {CUR 


DN} {CUR 
RT} (CUR 
RT7(CUR 
RT3( CUR 


DN{ CUR 
RT}{CUR 
RTL CUR 
RT3{CUR 
RT?({ CUR 


DN>{(CUR 
RT}{CUR 
RT(CUR 
RT( CUR 
RTs{CUR 


DN 
RT 
RT 
RT 
RT 


+ {OR}FLUSH" 
7999 FORA=1TO198: NEXT: GOTO793¢6 
ae IFAS="Y¥" THENTT=S: NA=CREDIT: GOTO1S599 


711M @1=54276!: @2=54277!: 83=54278!: POKEG1,¢ 

:POKEQ2, 15!:POKEQ3,¢ 

7i2@ POKES42964, 15: POKEQ@2, 64: POKEQ3,128:P 

OKE@1,17 

7i3@ FORA=CREDITTOCREDIT+7*¥BET: PRINT" {HO 

ME}{CUR DN}{CUR DN}{CUR RT}{LT BLU}CREDI 
2"5A 

7149 POKES54273, 49: POKES4272, 299: POKE5S427 

3,9:POKE5S4272,9 
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7156 NEXT: CREDIT=A-1: GOTO1ISGHSS 

726G REMKXHKXHXKXTHREE OF A KINDXEXEKE 
KEEKEKKEKKEKKEKEKEKEKEKKKKKKKEE 

72190 PRINT" CHOME > 

7229 PRINT" {HOMES (CUR DNS{CUR DNS{CUR DN 

+{CUR DN; 

72368 PRINT" {HOME {CUR DN3{CUR DNF {CUR DN 

+<€CUR DN} {CUR DN}{CUR DN} {CUR DN3C{CUR DN 

3{CUR DN3{CUR DN} {RVS ON} (GRNID 

OUBLE OR NOTHING(Y/N)" 

724990 PRINT" {HOMES {CUR DNF CCUR 


DNI{CUR DN 


7{CUR 
3{CUR 


>< CUR 
{CUR 


2SCUR RTFTRVS 
258 GETAS: IFA 


DN {CUR 
RT3{CUR 


RT?{(CUR 
RTi{ CUR 


DN}{CUR DN CCUR 
RTI {CUR RTF( CUR 
RT}{CUR RTF{CUR 
RTS( CUR RTS{CUR 
ON}{OR}THREE OF 


726G FORA=1TO19696: NEXT 
7278 PRINT" {HOME} {CUR 


7{ CUR 
7( CUR 


DN} {CUR DN;{(CUR 
DN3{CUR DN} 


NOTHING(Y/N) " 
7286 PRINT" {HOME} {CUR 


+{CUR 
+{CUR 


7{CUR 
+{ CUR 


DN} {CUR DN CCUR 


RT{CUR RTFTCUR 


RT}{CUR RTFC(CUR 
RT?{CUR RTF{CUR 


$C >" " THENZ SIS 


DN3{ CUR 
DN {CUR 


RT(CUR 
RT{ CUR 
RT{(CUR 
RT?{ CUR 
A KIND" 


DNS {CUR 
DN{CUR 


{GRN}DOUBLE 


DN {CUR 
DN; {CUR 
RTS{ CUR 
RT {CUR 
RT?{CUR 


DN>{CUR 
RT}{CUR 
RT?{CUR 
RT (CUR 
RT?{CUR 


RT 
RT 
RT 
RT 


DN 
DN 
OR 


DN 
RT 
RT 
RT 
RT 


}{CUR RT}{LT BLU} THREE OF A KIND" 

7299 FORA=1TO19@0: NEXT: GOTO7239 

239G IFAS="Y" THENTT=4: NA=CREDIT: GOTO1599¢ 

g 

7318 @1=54276! @2=54277: Q3=54278: POKEGI,@ 
:POKE@2, 15: POKEQ3,9 

7328 POKE542964, 15! POKEQ2, 64: POKEQS, 128:P 

OKEG@1,17 

7338 FORA=CREDITTOCREDIT+3*¥BET: PRINT" {CHO 

ME}<{CUR DN}{CUR DN}{CUR RT}{LT BLU}CREDI 
"30 

7349 POKES4273, 49: POKES4272, 299: POKES427 


319: POKES4272,9 
35@ NEXT: CREDIT=A-1:GOTO19gg¢ 


7465 REMKEXKKKKKETWO PAIRSKEKKKKE 
KEKKEKKEKHKKEKKKEKE KKK HEH 
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74196 PRINT” CHOME >: 
7426 PRINT" {HOMES {CUR DNSTCUR DNSCCUR DN 
+{CUR DN? * 

74368 PRINT" {HOME} {CUR DN {CUR DN {CUR DN 
{CUR DN} {CUR DN} {CUR DN} {CUR DN3C{CUR DN 
{CUR DN} {CUR DN3 {RVS ONS {GRNSD 
OUBLE OR NOTHING(Y/N)" 

79499 PRINT" {HOME} {CUR DN} {CUR 
+{CUR DN} {CUR DNF{CUR DNC(CUR 
7{CUR RTF{CUR RT{CUR RT3{CUR 
7;{CUR RTFCCUR RTFCCUR RTF CCUR 
3{CUR RTFCCUR RTS {CUR RT 3 {CUR 


DN>{CUR 
DN3{CUR 
RT3{CUR 
RT?C( CUR 
RTF(CUR 


DN 
RT 
RT 
RT 
RT 


+{CUR RTFCCUR 
RS " 


RT}{RVS ONFLLT BLUSTWO PAI 


493590 GETAS: IFAS< 2" " THENYSSGS 
7494696 FORA=1T0196:. NEXT 
79798 PRINT" {HOME} {CUR 


+{CUR DN?{( CUR 
s+{CUR DN3{CUR 


NOTHING (Y/N) " 


DNC CUR 
DN > 


74989 PRINT" {HOME} {CUR 


N?€CUR 
+tEUR RTS tEOR 
{CUR RT?TCUR 
s{CUR RT}3{ CUR 


DN;{ CUR 
RT?{CUR 


RT{CUR 
RT?{ CUR 


DNS {CUR 
DN3C€CUR 


DNF{CUR 
DN? (CUR 


{GRN}DOUBLE 


DNF{CUR 
DN;{CUR 
RT?{CUR 
RT{€CUR 
RT{CUR 


DN (CUR 
DN}{CUR 
RT {CUR 
RT?{CUR 
RT{ CUR 


DIN 
DN 
OR 


DN 
RT 
RT 
RT 
FT 


{CUR RT} {CUR RT}{OR}TWO PAIRS" 
7499 FORA=1TO19@: NEXT: GOTO743¢ 
7590 IFAS="Y"THENTT=7!NA=CREDIT: GOTO1L5S99 
g 
7518 @1=54276! @2=54277: @3=54278: FOKEG1,@ 
°POKEQG@2, 15: POKEQ3,9 
7528 POKES4296, 15: POKEQ@2, 64: POKEQ3,128:P 
OKE@1,17 
7539 FORA=CREDITTOCREDIT+2XBET:PRINT"{HO 
ME}{<CUR DN}{CUR DN}{CUR RT}{LT BLU}CREDI 
2"5A 

7548 POKES4273,49:POKE5S4272, 296: POKES427 
3,9:POKES4272,9 
7558 NEXT: CREDIT=A-1:GOTO1S9999 
76GG REMKXXXXXACE OR BETTERXXKXX% 

HHH HHI HII ERIE 


7619 PRINT" (HOME } 
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7626 PRINT" HOMES (CUR DNF CCUR DN3{CUR DN 


+{CUR 


DN} 


7636 PRINT" {HOMES (CUR DN3{CUR DN3{CUR DN 


eer DN} (CUR DN} {CUR DN? {CUR DNC{CUR ODN 
CUR DN}3{CUR DN} 


QUBLE QR NOTHING (Y/N) " 


CRVS ON} {(GRND 


76499M PRINT"{HOME3 (CUR DN3{CUR 


7{CUR 
3{CUR 


+<CUR 
7{( CUR 


+{CUR 


DN} {CUR 
RT3?i( CUR 


RTI CCUR 


RT (CUR 
RT( CUR 


OR BETTER" 
7659 GETA®S: IFAS< > ""THENY 79D 
7669 FORA=1TO199: NEXT 
76768 PRINT" (HOMES {CUR 
{CUR DN}CCUR DN CCUR 
{CUR DNSTCUR DN} 


NOTHING(Y/N) " 


DN; (CUR 
RTI{ CUR 
RT} {CUR 
RT{ CUR 
RT{ CUR 


76868 PRINT" (HOMES (CUR 


7 <CUR 
3{ CUR 


7 {CUR 
3{ CUR 


+{ CUR 


DN?{ CUR 
RT{CUR 


RT?{CUR 
RT3{CUR 


RT?{CUR 


DN;{CUR 
RT3{ CUR 
RT{CUR 
RT{ CUR 
RT{CUR 


DNS {CUR 
RT?{CUR 
RT3{CUR 


RT3{ CUR 
RT3<{RVS 


DN>( CUR 
DN {CUR 


DN{ CUR 
DN? {CUR 
RT3 {CUR 
RT {CUR 
RTI CUR 


Div 
DN 
RT 
RT 
RT 


ON} fORFACE 


DN {CUR 
DN {CUR 


{GRN DOUBLE 


DN{CUR 
DN{CUR 
RTS{CUR 
RT?{( CUR 
RT{CUR 


DN{ CUR 
DN? (CUR 
RT3({CUR 
RT{CUR 
RT><{( CUR 


DN 
DN 
OR 


DN 
DN 
RT 
RT 
RT 


RT}{LT BLUZACE OR 


BETTER" 

7690 FORA=1TO19@: NEXT: GOTO7639 

7798 IFAS="Y"THENTT=8: NA=CREDIT: GOTO1L5S99 

g 

P7IG @1=54276: O2=54277: Q3=54278: POKEG1,@ 

:POKEQ@2, 15:POKEQ3,9 

7728 POKES4296, 15! POKEQ2, 64: POKE@3, 1298:P 

OKEG1,17 

773@ FORA=CREDITTOCREDIT+iI*BET: PRINT" {HO 

ME}<CUR DN} {CUR DN}{CUR RT}{LT BLU}CREDI 
2 "SA 

77498 POKES4273, 49: POKE5S4272, 299: POKES427 

3,9:POKE5S4272,@ 

775@ NEXT: CREDIT=A-1:GOUTOIg9999 

199@@ FORA=1T05:CA(A)=9: NEXT! DD=9:GOTO11 

15649 PRINT"{CLRICHOME {RVS ON F KKK KHHKH 

%¥--DOUBLE OR NOTHING—-¥XX##HXHHH" 

15991 PRINT" CHOME}{CUR DN}{CUR DN3<{CUR D 

N3}<CUR DN}<CUR DN?{CUR DN}{CUR DNI<CUR D 
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N3{CUR DN} I{CUR DN3{CUR RT3{CUR RT3{LT BL 
UNF FFL 

LC REDIVUVVUVILT BLU}? " 
15492 PRINT"{CUR RTFCCUR RTFZCREDSVVUVVUV SC 
LT BLU}?’ 
*LREDIVVUVVVELT BLU}? " 
159693 PRINT" {CUR RTF{(CUR RTFZCREDSVUVVUVC 
LT BLU}* 
#CREDIVUVVUVILT BLU}’" 


15994 PRINT"{CUR RT}{CUR RT}%{REDIVUVVVE 
CT BLU}? 


ZC REDIVVUVVVILT BLU}’" 

159635 PRINT"{(CUR RTZ{CUR RTS MSSSSEN" 
15196 PRINT" {HOME3{CUR DN3{CUR DN}{CUR R 
TI{CUR RTFC{CUR RTFC{CUR RTICCUR RTI(ORF6 
AND ABOVE ARE BIG" 

151196 PRINT"{CUR RT3{CUR RT3 {CUR RT3{CUR 
paeeeere RTS{LT BLUFS AND UNDER ARE SMAL 


15129 PRINT"{CUR DN3{CUR DN3{CUR DN3{CUR 
RT?}{CUR RT}{CUR RT}L{CUR RTICLCUR RT ZC CUR 


RTS{CUR RTI{CUR RT3{CUR RT3{CUR RT3{CUR 
RTS(WHT?’ BIG’ OR ’SMALL’" 


15139 GETAS: IFAS< >"S"ANDAS< >"B" THEN1513¢ 
15131 IFAS="B"THENPRINT" {CUR UPS{CUR RT3 
{CUR RT3{CUR RT} {CUR RT?{CUR RT3{CUR RT} 
{CUR RT}{CUR RT}(CUR RTIC{CUR RTICCUR RT} 
{WHT}’ {RVS ON} {PUR} BIGCWHT}{RVS OFF}? " 
15132 IFAS="S"THENPRINT"{CUR UP} {CUR RT} 
{CUR RT{CUR RTF{CUR RT3{CUR RT3{CUR RT3 
{CUR RT}{CUR RT}{CUR RTP{CUR RTF{CUR RT? 
{CWHT3’ BIG’ OR ’{RVS ON} CPUR}SMALL{IWHTI<{(R 
VS OFF’ " 

15148 T=1:2C¢(1)=INTC(RND(1)*¥12)+1:2:CC(1)=I1N 


TC(RND(1)*¥3) +1 
151495 PS#="{HOME{CUR DN3{CUR DN3{CUR DN} 


fGUR DN3<{CUR DN}{CUR DN3{CUR DN{(CUR DN? 
CUR DN3{CUR DN3{CUR DN3{CUR RT}{CUR RT} 


S156 IFCC(1)=1THENGOSUBI19GSS 
151696 IFCC(1)=2THENGOSUB299S 
151760 IFCC (1) =3THENGOSUB3999 
15186 IFCC(1)=4THENGOSUBS999 
135199 IFC(1) >=6THENPRINT" {HOME} {CUR DN3¢ 
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CUR 
CUR 
CUR 
CUR 


CUR 
1G" 


DN T CUR 


DN3( CUR 


DNF{CUR 
RT? {CUR 


RT?{(CUR 


DN?C{CUR 
DN (CUR 
DN? (CUR 
RT?{ CUR 
RT}(CUR 


DN? (CUR 
DN${ CUR 
DN (CUR 
RT{CUR 
RTF{RVS 


DN?{(CUR 
DNS {CUR 
RTs{CUR 
RT?<(¢CUR 


DN¢ 
DN>¢ 
RT3¢ 
RT3¢ 


ON {LT BLUSE 


152668 IFC(1)<=STHENPRINT" (HOME {CUR 


CUR 
CUR 


CUR 
CUR 


CUR 


DN}{ CUR 


DNF{CUR 


DN {CUR 
RT3{ CUR 


RT3(CUR 


MALL" 
152190 IFAS="B"ANDC (1) <=STHENFORA=1TOS9SG: 
NEXT: GOTO1S999 
15229 IFAS="S"ANDC (1) >=6THENFORA=1TO599: 


NEXT: GOTO1S99S 
15224 IFAS="B"ANDC (1) >=6THENBB=1 


DN} {CUR 
DN>{CUR 
DN; {CUR 
RT{CUR 
RT${CUR 


DN{CUR 
DN (CUR 
DN>{CUR 
RTS{ CUR 
RT{RVS 


DN {CUR 
DNI{CUR 
RT?{CUR 
RT3{ CUR 


DNs 
DNC 
DNC 
RTs 
RT3¢ 


ON? {LT BLUGS 


15225 IFBB=1THENPRINT"{CHOME} (CUR 


DNF {CUR 


DN;¢< CUR 
DN} {CUR 
RT?{CUR 
RT}{CUR 


RT;<{ CUR 


DN {CUR 
DN?{( CUR 
DN {CUR 
RT?{(CUR 
RT{CUR 


RT+{CUR 


DN?{ CUR 


DN?{CUR 
DN (CUR 
RT?<{CUR 
RTL CUR 


RT?7{ CUR 


DN {CUR 
DN {CUR 
DN?{CUR 
RT?(CUR 
RT3{CUR 


RT?{CUR 


RTS{GRNFYOU WIN!!" 


15226 POKEW1,17:POKEA1,15:POKEVI1, 


DN (CUR 
DN (CUR 
DN3{ CUR 
RT3{ CUR 
RT?<{(CUR 
RTs{CUR 
RT?{ CUR 


is 


152390 FORA=NATONAtPP (TT) *¥2: PRINT" (HOME> ¢ 
CUR DN} {CUR DN}{CUR DN? {CUR DN}{CUR DN 
LT. BLUS;CREDIT: "A: POKEH1, 49: POKEL1, 2966 

15299 POKEH1,9:POKEL1,@: NEXT: POKEW1,6:PO 


KEA1,@:NA=A-1 
15259 PRINT" {HOME} 


152696 FORA=1TOS@: NEXT 


153590 PRINT" CHOME} {(GRN3 {RVS ON? 
DOUBLE OR NOTHING(Y/N)" 

15595 FORA=1TO56: NEXT 

155196 PRINT" CHOME?: (GRN} DOUBLE O 


R NOTHING (Y/N) " 


135529 GETAS: IFAS< > "Y "ANDAS< > "N" THENI5S269 


15539 IFAS="Y"THENIL5999¢9 
15549 CREDIT=NA: GoTOoLSgag 
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CHOP AND CHANGE 


This is a puzzling Little program which provides far 
more of ea challenge than you might think at first. 


The computer will generate a random pattern of O's’ and 
X's something Like the following: 
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00x 0x OX X 


1234567 8 


NUMBER TO CHANGE? 7 
Hidden deep in its metal mind, the computer has a 


pattern which determines which symbols change when you 
enter a number (which must be greater than zero): 


00 xX0OxX 0 xX X 
1234567 8 


YOU HAVE 4 RIGHT 
AFTER MOVE 3 


NUMBER TO CHANGE? 6 


0O0X 0X 00 X 


1. 2: 3a be &: 7 8 


YOU HAVE 5 RIGHT 


You are aiming to get all the X's to turn into O's, and 
in this sample game, success does not take Long: 
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0000000 xX 
1234567 8 

YOU HAVE 7 RIGHT 
AFTER MOVE 7 
NUMBER Ti) CHSNGE? 7 
00000000 


(25 1-5 ee 8 


YOU DID IT IN 8 MOVES 
BEST SO FAR IS 8 


Once you've played the game a few times, you'Ll begin to 
see how the game works, and you'LL quickly deduce which 
numbers to enter to get the pattern to alter as you 
wish. Sometimes it is not easy: 


000xX C00 0 


12.35 6s 


YOU HAVE 7 RIGHT 
AFTER MOVE 14 

NUMBER TO CHANCE? 15 
00000000 


1234567 8 


YOU DID IT IN 15 MOVES 


BEST SO FAR IS 8 
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Note, also, that a 
introduced in Line 310 to keep you on your toes. 


16 
26 
36 
46 
a 
69 


76 
39) 


9S 


slight element of randomness 


REM CHOP & CHANGE 


HS=1996 
DIMA(?) 
GOSUBS39: REM 
GOSUB1196: REM 
GOSUB259: REM 
GOSUB1190:REM 
GOSUB349: REM 
GOTO69 


INITIALISE 
PRINT OUT 
PLAYER INPUT 


PRINT OUT 
CHECK RESULT 


1GH REM KEHEKKKHKY 
1196 REM PRINT OUT 


129 PRINT"{CLR}" 


136 IFHS< °1G@SOGTHENPRINT: PRINT"BEST SO FA 


R I 
149 
156 
16G 
179 
136 
199 
2GB 
219 
2268 
2368 
249 


2568 
2608 


2/76 


239 
29D 


3GDG 
312 
326 
348 
338 
368 


37h 
389 


39d 


S"HS 
GOSUB296G 
FORJ=1TOS 


PRINTCHRS(A(J))5" "5 


NEXT J 
PRINT: PRINT 
PRINT"1 2 3 
FORJ=1TOS 
PRINT 

NEAT J 
RETURN 


4353 67 8" 


REM HHEKKHKKKKKKEH 
REM PLAYER INPUT 


PRINT 


INPUT"NUMBER TO CHANGE";5P 


P=P+xX 


IFP>STHENP=P-9: GOTO299 


IFP< STHENP=P+9: GOTO399 
IFA(P) =88ANDRND(1)>.1THENA(P) =79 


RETURN 


REM KEHHKKKKKKHKHE 


FL=¢ 
MO=MO+1 
FORZ=1T08 


IFA (2) =/79THENFL=FL+1 


NEXT 2 
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is 


4Gg 
416 
429 
43g 
«44g 
45g 
46q 
APG 
43g 
49@¢ 
58g 
51g 
528 
53g 
54g 
559 
56a 
578 


ISPS 
39S 


6S 
6169 


IFFL=STHEN4S6: REM WIN 

PRINT? PRINT" YOU HAVE"FL"RIGHT" 
PRINTS PRINT"AFTER MOVE"MO 
RETURN 

REM *X** 

REM WIN 

PRINT: PRINT 

PRINT"YOU DID IT IN"MO"MOVES" 
IFMO<HSTHENHS=MO 

PRINT: PRINT"BEST SO FAR IS"HS 
FORT=1TO2699:,NEXT T 

GOTO49 

REM HEHKKKKKKHKKEKHKE 

REM INITIALISATION 

REM 

FORJ=1TOS 

A(J)=88 
IFRND(1)>.6THENA(J) =79 

NEXT J 

MO=¢G 

X=INT (RND(1)%#7) 41 

RETURN 


READY. 
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is, 


POW 


Your brilliant mathematical mind, and that of your 


computer, are locked in a deathless struggle to achieve 
numerical domination. 


At the start of the game, you're both issued with Large 


numbers, chosen at random. You are told what your number 
but you do not know what number the 


computer has 
been blessed with. 
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The aim of the game is to exceed the other player's 
number by 1000000. Once you each have a number, you take 
away numbers from your opponent, simply by asking for 
them. For example, if the computer's number was 104637, 
and you said "Give me your 6's", 600 would be added to 
your number, and 600 subtracted from the computer's 
tally. If you asked for its 1's, 100000 would be added 
to your number (and - in this case - you'd probably 
win). 

At the end of the game, the changes in fortune which 
took place as it was running are shown. Here's part of a 
sample game to show you what I mean: . 


Your number is 178275 


Please give me your 8 's 


Thank you! 
Your number is now 170275 
Which number would you like? 6 


Youfve got them 
Your number is 170281 


Please give me your 9 ‘Ss 


OK 
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Your number is now 170281 
Which number would you like? 3 


Sorry, I don't have any 


Your number is 170281 


Please give me your 2 'Ss 


Thank you! 
Your number is now 170081 
Which number would you like? 7 


You've got then 
Your number is 170781 
Please give me your 4 's 


OK 


Your number is now 170781 
Which number would you like? 9 


Sorry, I don't have any 


Your number is 170781 


Please give me your 5 's 


OK 
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This 


1G 


2G 
36 


49 
ve] 


Your number 


Which number would you 


You'tve got them 


Your number is now 170781 


Which number would you like? 2 


That's the end of the game 


is 


now 170781 


You've got them 


You won that game... 


My final number was 10040 


Here's how the game went: 
Yous 
You: 
You: 
You: 
You: 
You: 


yours was 370781 


170275 
170281 
170081 
170781 
170781 
370781 


REM POWER PLAY 


DIMH(7) ,C(7) ,P (1969) 


REM 


Me: 
Me: 
Me; 
Me: 
Me: 
Me: 


PRINT" ¢CLR" SPRINT 


HLI=INT (C1ID*SH#HRND (LIKS+IGERND (1) #99P9S+R 
ND (1) #999) 


69 PRINT"STAND BY..." 
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210546 
210540 
210740 
210040 
210040 
10040 


listing will give you the chance to fight it 
with your computer in a round of POWER PLAY: 


like? 2 


out 


78 C1L=1G9° Sti S¥XINT (RND (1) ¥9999) +INT(RND (1 
)¥F999) 

8@ IFABS(C1-H1) >19°5THENSS 

96 CO=9 

19@ PRINT"{CLR}" 

11@ PRINT!:PRINT 

129 PRINT"YOUR NUMBER IS"H1 

130 M=19°6 

14@ FORX=7TO1STEP-1 

15G H(X)=G:C(X) =o 

168 C(X)=INT(C1/M) 

178 H(X%)=INT(H1L/M) 

18@ C1=C1-M*C(X) 

199 HL=H1-M*H(X) 

268 M=M/19 

21G NEXT xX 

228 Ci=G8:H1=¢ 

2390 M=INT(RND(1)¥8)+2 

248 Y=1:FL=o 

259 PRINT:PRINT"PLEASE GIVE ME YOUR"M"’S 


266 FORK=1TO19969G: NEXT K 

2796 PRINT: PRINT 

288 FORX=1TO? 

2°90 IFH(X) =MTHENCI=C1It+Y*#HCX) SH(K) =O FL=A1 
3GB Y=H1GKY 

53106 NEXT X 

326 IFFL=LTHENPRINTTAB(S) 
325 IFFL=STHENPRINTTAB(?) 
338 Y=1 

348 FORX=1TO? 

358 H1i=H1it+tY#H(X) 

34690 Ci=C1i+Y¥RC(X) 

37H VY=1GKY 

388 NEXT * 

398 PRINT: PRINT" YOUR NUMBER IS NOW"H1 
496 CO=CO+1 

4196 P(CO)=H1 

426 CO=coOrl 

439 PRINT: PRINT"WHICH NUMBER WOULD YOU L 


"THANK YOU!" 
"QK" SPRINT 


449 P(CcO)=C1 
450 INPUTNU 
469 IFNU=10RNU>9°THENYS9 
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476 PRINT 

489 mM=19%°6 

499 FORX=7TOISTEP-1 

5OG H(X)=82C(X)=8 

S19 C(X)=INT(C1i/M) 

529 H(X)=INT(H1/M) 

S3G C1=C1i-M¥C (xX) 

549 H1=H1-M*H(X) 

559 M=M/19 

569 NEXT x 

570 H1=4:C1=¢ 

S8@ FL=9:Y=1 

599 FORX=1TO?7 

69@ IFNU=C (X) THENH1=H1+Y*¥C(X%)!C(X) =@:FL= 
1 

619 Y=1GxXY 

628 NEXT xX 

638 IFFL=1THENPRINTTAB(4)3;"YOU’VE GOT TH 
Em" 

635 IFFL=9THENPRINTTAB(7)3 "SORRY, I DON’ 
T HAVE ANY"NU"? 5" 

649 FORX=1TO15@G:NEXT X 

659 Y=1 

668 FORX=1TO? 

678 H1L=H1i+Y#H(X) 

688 C1=Cit+YXC(X) 

69D Y=1GxY 

78GB NEXT xX 

719 IFABS(H1-C1)<19°5THEN1S9 

728 PRINT: PRINT"THAT’S THE END OF THE GA 
ME" 

739 PRINT!:PRINT 

749 IFH1>C1THENPRINT"YOU"; 

745 IFC1>HiTHENPRINT"I"3 

759 PRINT" WON THAT GAME..." 

768 PRINT: PRINT"MY FINAL NUMBER WAS"C1 
77G PRINTTAB(S); "YOURS WAS"Hi:PRINT 

789 PRINT"HERE’S HOW THE ACTION WENT: " 


7996 FORT=1 TO CO STEP2 
S96 PRINT"YOU: "P(T), "ME: "P(T+4+1) 


S190 FORY=1TO1966: NEXT Y 
S26 NEXT T 


839 PRINT"YOU: "Hi, "ME: "C1 
READY. 
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SUNCO 


Here's a dice game for up to five players plus’ the 
computer. It's easy to play, with your computer doing 
most of the work. The following sample run will show you 
how simple it is. 


: 
Nee 
8 
A 
4 
fey 
$4 
é 
“4 
wo 
@ 
ff 
ve 
6g 
woe 
"sf 
oe 


First the computer asks how many people are playing and 
gets their names: | 
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HOW MANY PLAYERS (1 TO 5)? 2 


NOW WE'LL GET THE PLAYERS* NAMES 
? PIZZA 
? MAGPIE 


Next, the 'bunco point' is selected: 


FIRST WE NEED THE BUNCO POINT 


PRESS ANY KEY TO GET BUNCO 


THE BUNCO POINT IS 4 


The players now take it in turns to roll three dice, 
scoring each time the bunco point shows up. The only 
roll which counts is the final one in a set: 


THE COMPUTER'S SCORE IS 0 


> THIS IS THE COMPUTER'S ROLL < 


HERE WE GO... 
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MY DICE FELL 5 2 5 
THE COMPUTER'S SCORE IS NOW 0 


- © . * . &®# ~ &®& | & 

THE BUNCO POINT IS 4 

5 1 3 

1 2@ 2 

1 4 5 <<Keee 
MAGPIE'S DICE FELL 1 4 5 
MAGPIE'S SCORE IS NOW 1 
o- * |. #®# . &®@§ ~~ &®& | &®§ | &®& |. &§ . &® | & | ® 


THE BUNCO POINT IS 4 


MAGPIE'S SCORE IS 1 
-> IT IS MAGPIE'S TURN <= 


PRESS A KEY TO ROLL... 


MAGPIE'S DICE FELL 4 6 1 


MAGPIE'S SCORE IS NOW 2 


But mere humans should be wary of trying to defeat a 
mighty machine, as this game demonstrated convincingly, 
by getting a total of five before the other pLayers: 
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MY DICE FELL 2 4 2 


THE COMPUTER'S SCORE IS NOW 5 
-~ *# 2.8 - ®@& 2. @ 2. & Fee. HL UR Ct 


THE WINNER IS THE COMPUTER 
THE OTHERS... 
PIZZA = 4 


MAGPIE = 4 


Stop the bunco now and start a-rolling: 


19 REM BUNCTO 

26 GOSUBSSS:REM INITIALISE 

39 PRINT" {CLR3": PRINT: PRINT 

49 PRINT"FIRST WE NEED THE BUNCO POINT" 
38 REM 

69 PRINT: PRINT 

78 PRINT"PRESS ANY KEY TO GET BUNCO" 
89 GETGS: IFGS=""THENSS 

99 PRINT 

1990 FORT=1TO1966 

116 D=INT(RND(1)%¥6) +1 

126 IFRND(1)>.9THENPRINT 

1390 PRINTDS$ 

1446 NEXT T 

156 GOSUB 1959 

166 PRINT"{CLR}”" > PRINTS PRINT 
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178 FORJ=1TOAtI! 

18@ PRINT: PRINT"@ * © ¥ @ *¥ @©@ ¥ © *¥ C FX 
C#xe@xX @ xX @ F* "SPRINT 

199 PRINT" THE BUNCO POINT IS"D:PRINT: PRI 
NT 

2606 PRINT: PRINTQ$S(J)5"’S SCORE I85"2Z(J) 
216 IFI>1THENS29 

229 PRINT: PRINT"> THIS IS THE COMPUTER’S 


ROLL <”" 
236 GOSUB19S6: PRINT 
2499 PRINT"HERE WE GO...":GOSUB1959 


269 GOSUB?79S 

2706 PRINTSPRINT"MY DICE FELL"D15;D23;D3 
289 GOSUBI9GS95 

279 GOSUBYSE 

G9 GOSUBI1GS9 

816 GOTO492¢g 

326 PRINT: PRINT" -> IT IS "3Q@$(3)"’S TUR 
N <-" 

339 PRINT: PRINT"PRESS A KEY TO ROLL..." 
39499 GETGS: IFGS=" "THENS4S 

359 PRINT"{CLR}" 

369 GOSUB?9S 

3798 GOSUB195¢9 

33896 PRINT@$(J)3s"’S DICE FELL"D15;D2;5D3 
399 GOSUB19GS9 

499 GOSUB79¢ 

4196 GOSUB19596 

426 IFZ(J) >4THENE=J: GOTOS519 


43@ NEXT J 
449 FL=9 


4596 FORE=1TOA+1 

4690 IFZ(E) >4THENFL=E 

4796 NEXT E 

43890 IFFL=6THEN169 

4996 E=FL 

IHIG REM HKEKKKKHKKKKKKKKKHKKHEHKEH 

316 REM END OF GAME 

3209 PRINT"@ *¥# @ X¥ @¥ Cx CX CX CXKE 
%* © * @ C "SPRINT 

3S0 PRINT"THE WINNER IS ";QS$(E) 
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S49 PRINT 

S58 PRINT"THE OTHERS... ":GOSUB1959 

S6@ PRINT 

578 FORJ=1TOAtI 

58@ IFJ=ETHEN612 

S99 PRINTQS(J)3" - "3Z(I) 

699 PRINT 

618 NEXT J 

628 END 

639 PRINT:PRINT 

649 PRINT"AND "3;@%(J)3" WINS" 

659 PRINTTAB(6)3"WITH BUNCO!" 

668 GOSUB1959 

678 E=J 

689 GOTO54¢ 

BID RM FREI 

79@ REM ASSESS DICE 

719 IFD=D1ANDD1=D2ANDD2=D3THENPRINT " BUNC 
O!''":GOTO63¢ 

728 IFD1=DTHENZ(J)=Z(J) +1 

74@ IFD3=DTHENZ(J)=Z(J) +1 

759 PRINT: PRINT@S$(J)3;""S SCORE IS NOW"Z( 
J) :GOSUBI95¢ 

768 IF (D1=D ORD2=D ORD3=D) ANDZ(J) <STHENJ 
=J-1 

778 RETURN 

FBG REM XXHXKKHHKHKHHK 

799 REM THE DICE 

8GG FORS=1T02¢ 

819 DI=INT(RND(1)¥6)+1:PRINTD13 

829 D2Z=INT(RND(1)¥6)+1!:PRINTD2$ 

838 D3=INT(RND(1)¥6)+1:PRINTD3} 

849 IFD1=DORD2=DORD3=DTHENPRINT" <<<---" 


S856 PRINT 
8698 NEXT S 
S70 PRINT" ---------------- croc coco cree eee 


8388 RETURN 

SPD REMEKKKHHHKKKEKKKKKKKKEKE 
999 REM INITIALISATION 

9190 PRINT"{CLR}" 

9296 REM 

939 PRINT: PRINT 
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946 PRINT"HOW MANY PLAYERS (1 TO 53)" 
9435 INPUTA 
258 IFAS 1ORA>STHENS4S5S 


968 DIMZ(At1), QB(AtL) 
978 PRINT"{CLR}":PRINT: PRINT 


989 PRINT”"NOW WE’LL GET THE PLAYER’S NAM 
ES ae 


9998 Q6(1)="THE COMPUTER” 
19696 FORB=2TOA+I1 
1619 PRINTB-15"-"5 ) INPUTQS#(B) 


1629 NEXTB 
1939 RETURN 


LG4G REM HHEHKKKKKKKE 

196358 REM DELAY 

19696 FORP=1TO139@G: NEXT P 
1970 RETURN 


READY. 
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STARBASE 2000 


The residents of Starbase 2000 have been hit by an 
outbreak of Quintett Plague. A distress message has been 
received at HQ and you have been despatched with the 
necessary serum to save the residents’ Lives. 


However, the people who control the movement of the base 
through space have come down with Quintett, and the base 
has wandered quadrillions of miles from its proper 
position. Therefore, you have to locate the missing 
Starbase, and take your craft there with the serum, 
before all the inhabitants are dead. 
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The Galactic Area within which you will find the 
Starbase is very, very Large, and heavily populated. Not 
only are there are other starbase in the sector, but a 
number of alien races — not friendly to humankind — also 
spend their time in this Area. While attempting to find 
the Starbase 2000 and get to it, you have to avoid 
running into friendly starbases and not-so-friendly 
aliens, and make sure you do not run out of energy 
.before your task has been carried out. 


A number of other incidents Lie in wait for you as you 
undertake this quest. You will find that only a few of 
them will be triggered each run of the game, so it will 
differ considerably from run to run. As well, the 
Location of every object in the Galactic Area (you, 
aliens, starbase and Starbase 2000) changes from game to 
game. 


Once the computer has distributed the contents of the 
Area, you'LL be told where you are: 


You are in Hyades sector 


RR ENERGY BANKS HOLD 300 


If you decide to use your scanner, it will scan the 
sectors immediately surrounding the one you now occupy, 
giving an S for a starbase, and an A for an alien. As 
you'll see in this run, the scanner has also _ Located 
Starbase 2000: 
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Do you want to use scanner (Y or WN)? Y 
>Stand by for scan...>S>SSA>>SA>DA 
ooee eSlTARBASE 2000 DETECTED!..... 
S>>SA>A>>>>>>>> 

Closest alien: Scan reading of 2 


Closest starbase: Scan reading of 1.414 


Scan on Starbase 2000 returns: 3.605 
It is within range 


Each turn gives you a number of options: moving, 
scanning and firing: 


Sean on Starbase 2000 returns: 3.605 
It is within range 


v Your galactic co-ordinates: 31 £30 


Do you want to move ship (Y or N)? Y 
Which direction (N, S, E or W)? N 


::3:: You are in Hyades sector 


naonrneeFeeg@eee@eg@e@e@eeqgeG@Qaqeweeeeqeoaee@ @@eeee& @ ws a a & @& & Ge = aD 
eoq@ewwpreesae @gFewqaewerenmrmPeeegeee@@eeenee@@eweeeeemeeeee@eem@e gw @ & & a = ae 


##ENERGY BANKS HOLD 297.025 
Do you want to use scanner (Y or N)? N 


Do you want to fire Photons (Y or N)? Y 
AT WHAT FORCE (2 TO 8)? 5 
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IN WHICH DIRECTION (N, S, E OR W? N 
Sector beam 1 ...NOTHING 
Sector beam 2 ...NOTHING 
Sector beam 3 ...NOTHING 
Sector beam 4 ...NOTHING 
Sector beam 5 ..-NOTHING 
#®#ENERGY BANKS HOLD 284, 525 


As you move through space, your energy reserves are 
slowly diminished. Not only do you have to keep an eye 
on these reserves, but you must be ready to duck if one 
of the pesky aliens tries to lay a shot on your ship: 


ALIENS AT 31 32 ARE FIRING AT US SIR... 


#®THEY MISSED! ! 


Survive that, and the universe has other problems to 
throw at you: 


VVVVVVVVVVV¥YVVVUVVVVVVVVVVVVVVVVVVVVVVV 
Navigation reports unusual atomic 
activity at magnitudes 4.8 and 10.13 
from Kapteyn's, apparently directed 
towards UV Ceti A and BB... 

This suggests our scanner output 

may be inaccurate... 


A captain's lot is not a happy one, as some of your 
decisions turn out not to have been very wise: 


You are in Hyades sector 


gao@gq@eee@eeeq@eqweeoeqgmqe@ @ w@e ns @& =a =& - nepen ae @anmeae @&@qw ap Ge =» «ea 
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®8ENERGY BANKS HOLD 135.9125 


Do you want to use scanner (Y or N)? N 


a a 


vy Your galactic co-ordinates: 30 29 
Do you want to move ship (Y or N)? N 


Do you want to fire Photons (Y or N)? Y 
AT WHAT FORCE (2 TO 8)? 6 


¢::: IN WHICH DIRECTION (N, S, E OR W? E 


Sector beam 1 

YOU HIT A FRIENDLY STARBASE! 
Sector beam 2 ...NOTHING 
Sector beam 3 

ALIEN SHIP DESTROYED AT 30 32 
Sector beam 4 ...NOTHING 
Sector beam 5 ...NOTHING 
Sector beam 6 

ALIEN SHIP DESTROYED AT 30 35 


And the universe continues to take its toll of well-Laid 
plans: 


VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV 
Signals received from direction of the 
Horsehead Nebula at 337 Parsecs show 
excessive sodium measurement in 

the interstellar dust cloud... 

We must divert 12% of our energy to 
strengthen our shields... 

Energy banks now hold 52.73125 

After shieid strengthening, energy 
banks report a reading of 41.13037 

? 


#® ENERGY BANKS HOLD 41.13037 
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> WARNING !?! < 
> WARNING ! < 
>» WARNING ! < 
ENERGY RESERVES #®LOW#® 


YOU MUST FIND A STARBASE SOON 


But if you are clever (and perhaps a Little Lucky) 
eventually you will save the day (if not the world): 


es: You are in Eridanus sector 


gwaewag”g?wgqaadgdgoaveq@moeaqaaee@wmcqcoeeeeqmeo°3;eeeoaee@@qomenm ce ch co cw ce Ga eo A wo a & aw mm 


B® ENERGY BANKS HOLD 30.68037 


> WARNING ! < 
> WARNING 2? < 
> WARNING 3! < 
ENERGY RESERVES *LOW# 


YOU MUST FIND A STARBASE SOON 
Do you want to use scanner (Y or N)? Y 
>Stand by for scan...>AA>S>ADS>>OSADA 


ocoeec eS LARBASE 2000 DETECTED!?..... 
2>>>S>>>>>>>d 


Closest alien: Scan reading of 2.828 


Closest starbase: Scan reading of 3.162 


Sean on Starbase 2000 returns: 3.602 
It is within range 
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Do you want to move ship (Y or N)? Y 
Wuich direction (N, S, E or W)? E 


qgaeeq@waqaeeéq@e@@eeqagee@ @& @& @ @eageqgwqae@g @Se @ @ @ @& a @ @& mw & ws & = Ge & oc & &]& FS ow 
enaeaaeeeF@eereeeeneerm wea aag @ @ @ @ @& @& & x20 @ & @ = GP te ae @& a= @ .w @ ow 


1012 STARBASE RESIDENTS ARE STILL 
ALIVE, AND WILL NOW LIVE BECAUSE OF THE 
SERUM YOU HAVE BROUGHT THEM 


YOUR RATING FOR THIS GAME IS 1078 


Just to show you how crowded the Galactic Area can be, I 
modified the program slightly from the one’ included 
here, to print out just part of the Area. I've placed an 
asterisk next to your ship (S) and the elusive Starbase 
2000 (T) to help you spot them. As you can see, this is 


not a game for those who lack the ability’ to 
concentrate: 


B B A 5 B 
BB R Eb K HK BK BA 
A A AA AP B- AB } 
A A BA cR AA 87 A 
B P AFA A A F. 
A A B B A A A E R A F 
B a 2 2A f E A BR 
B AAS 2 B B AE 
A BA A 3 R EA P A i 
2 BA nr COA A B 
e A = a>. 3s be] 
5 es 5 A BA B rs} 
A 2 a A B P 
5 Anak AA P B AF A B A 
A 2 A AA A PP cE 
RB BA PS A A =. R 
g A A A F A 


OK, cap'n, it is time to accept the challenge, and set 
out on your way to save the inhabitants of Starbase 2000 
from the dreaded Quintett Plague: 
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19 


26 
36 


4g 

5a 

6G 

7B 

Sa 

og 

199 
11g 
1298 
1398 
149 
159 
1469 
178 
189g 
199 
295 
219 
22 
23 
24 
259 
26D 
276 
286 
295 
38D 
319 
328 
339 
34g 
359 
36g 
37GB 
389 
39D 
49g 
41g 
426 
439 
44g 


REM STARBASE 2982 
GOSUB2649:REM INITIALISE 
GOSUB199:REM NAME OF QUADRANT 
IFEV<SANDRND (1) <. 1STHENGOSUB199@ 
GOSUB549:REM CONDITION OF SHIP 
GOSUB799:REM PROXIMITY REPORTS 
GOSUB195@:REM ACCEPT MOVE 
IFBS="N"THEN129 
GOSUB19@ 

GOSUBS4¢ 

GOSUB799 

GOSUB1399:REM ACCEPT FIRE COMMAND 
GOSUBS4¢ 

GOSUB1589:REM ALIENS RETURN FIRE 
TS=TS+1 

BS="" 

GOTO3¢ 

REM XXXXHKHHHHHKHHHK 

REM NAME OF QUADRANT 

PRINT" {CLR}":PRINT: PRINT 
PRINT":::: YOU ARE IN "$3 
P=INT(S1/8+.5) 

Q=INT(S2/8+.5) 

IFP< 1 THENP=1 

IF@< 1 THENG=1 

IFP >STHENP=8 

IFQ@>STHENG=8 

IFP >4THEN389 

IF@=1THENPRINT "PEGASUS" $ 
IFQ=2THENPRINT "AQUARIUS" $ 
IF@=3THENPRINT"ERIDANUS" § 
IF@=4THENPRINT "HYADES" § 
IF@=STHENPRINT"CANIS MAJOR"; 
IFQ@=6THENPRINT"URSA MAJOR" 3 
IF@=7THENPRINT "GPHIUCHUS" } 
IF@=8THENPRINT "CEPHEUS" § 
GOTO4642 
IF@=1THENPRINT"DORADO" 3 
IF@=2THENPRINT"TRIANGULUM" 3 
IF@=3THENPRINT"AURIGA"} 
IF@=4THENPRINT "MAGELLANIC" 
IF@=STHENPRINT "SCORPIO" 3 
IF@=6THENPRINT "CORVUS" § 
IFQ=7THENPRINT"ARCHERNAR" 
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45@ IFQ@=S8THENFRINT"CYGHUS" 3 

46@ PRINT" SECTOR" 

478 PRINT"------------------------------ 7 

48@ PRINT"SHIP’S LOG STARDATE"TS"ALIENS: 
"AK | 

499 PRINT"----~---~--------------------- 

599 PRINT"+++ YOUR GALACTIC CO-ORDINATES 
©"S1:S2 

51@ PRINT"------------------------------ 

529 RETURN 

S3D REM HHXHKKHHKHHKHKHH 

549 REM SHIP CONDITION 

559 PRINTTAB(12)3"*xXENERGY BANKS HOLD"EN 

S569 IFEN>1THEN612 

578 PRINT: PRINT:PRINT"YOU HAVE EXHAUSTED 
YOUR ENERGY BANKS" 

S88 PRINT: PRINT"YOUR VOYAGE IS OVER" 

5°99 PRINT:PRINT"YOU SURVIVED FOR"TS-199¢ 
"STARDATES” 

698 PRINT: PRINT"YOU DESTROYED"AK"ALIEN $3 
HIPS" :GOTO1859 

618 IFEN>S@THEN679 

620 FORH=1TOS 

638 PRINTTAB(H¥3)3"> WARNING ! <" 

648 NEXT H 

659 PRINT"ENERGY RESERVES *LOW%" 

669 PRINT:PRINT"YOQU MUST FIND A STARBASE 
SOON" 

678 FORT=1TO1999:NEXT T 

688 RETURN 

SFA REM HXKHHHE 

768 REM SCANNER 

71G P=298: A1=2GG: AB=2908: PR=8 

728 PRINT:PRINT"DO YOU WANT TO USE SCANN 
ER (Y OR N)” 

738 INPUTCS 

74G IFCS<>"N"ANDCS< >"Y" THEN7Z32 

75@ IFCS="N" THENRETURN 

768 EN=EN-.25 

778 PRINT"> STAND BY FOR SCANNING <":PRI 
NT 
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7898 %1=S1-8:K2=S1+8: Y1=S2-8: Y2=S2+8 

79OG IFAISCAITHENA1=1 

S90 IFX1>64THENK1=64 

8190 IFY1I<1THENY1=1 

S20 IFY1I>é64THENY1=64 

S306 IFK2<1THENX2=1 

S490 IFK2>64THENX2=64 

S59 IFY2<1THENY2=1 

S68 IFY2>64THENY2=64 

8708 FORX=K1TOX2 

S39 PRINT"-> "5 

S99 FORY=Y1TOY2 

PGS P=SAR(CX-S1)¥(X-S1)+¢0¢Y-S2)#(Y-S2) ) 
P1gd P=INT (P#1966) /16699 

P20 IFACK, Y) =SHORACK, Y) =STHEN?469 

939 IFACK, Y) =TATHENPR=P: PRINTS PRINT".... 
»-STARBASE 26990 DETECTED!....." 

949 IFACK, Y) =ALANDP<ALTHENAIL=P:PRINT"A"S 
>: GH=%:GJI=Y 

9359 IFACX, Y) =SBANDPCABTHENAB=P:PRINT"S"5 
P60 NEXT Y 

9768 WEXT xX 

9398 IFA1< >266THENPRINT:PRINT"CLOSEST ALI 
EN: SCAN READING OF"AI 

POS IFABS S26GTHENPRINT:PRINT"CLOSEST STA 
RBASE: SCAN READING OF "AB 

1999 IFPR< >S@THENPRINT:PRINT"SCAN ON STAR 
BASE 29990 RETURNS: "PR: PRINTTAB(S3) "IT 15 
WITHIN RANGE" 

1619 IFPR=@THENPRINT: PRINT"LONG RANGE FI 


*X ON STARBASE 269966 READS"19G*¥(S1-Bl)+(5S2 
-B2) 


19620 FORT=1TO1ISOOS: NEXT T 

19396 RETURN 

LDIAG REM HHKKKKKHKHKHKK 

i936 REM ACCEPT MOVE 

19698 PRINT: PRINT"+++ YOUR GALACTIC CO-OR 
DINATES: "S15S52 

19790 PRINT: PRINT"DQ YOU WANT TO MOVE SHI 
P (Y OR WN)" 

1989 INPUTBS 

19696 IFBS<>"N"ANDBS< >"¥" THENIGOSS 

119690 IF BS="N" THENRETURN 

1118 EN=EN-2.725 
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1129 
Es 

1139 

1146 


PRINTTAB(6)5 "WHICH DIRECTION (N, 5S; 


OR W)" 


INPUTAS 
IFAS< >"N"ANDAS< > "S"ANDASS > "E"ANDAS< 


>"W" THENI 1392 


1159 


1169 
1176 


1189 
1199 


12965 
12196 


1229 
1239 


1249 


IFAS="N"ANDS1=1 THENRETURN 
A(S1,S2)=SH 

IFAS="W" ANDS2=1 THENRETURN 
IFAS="E"ANDS2=64 THENRETURN 
A(S1,S2)=9 

IFAS="N"THENS1=S1-1 
IFAS="S"THENS1=S1+1 

IFAS="W" THENS2=S2-1 
IFAS="E"THENS2=S2+1 

IFA(S1,S2) =ALTHENPRINT"YOU’ VE LANDE 


D ON AN ALIEN SHIP!!! "ZEN=G 

1245 IFA(S1,52) =~ALTHENFORT=1TO1696: NEXT 
T: RETURN 

12590 IFA(S1,S2) =SBTHENPRINT"YOU’ VE LANDE 
D ON A STARBASE" : EN=ENtS3 

12690 IFS1=B1LANDS2=B2THEN17966:REM STARBAS 


E HAS BEEN FOUND 


1276 
1239 
12°95 
1398 
1310 
TONS 
1326 
1330 


1342 
13590 


1369 
13792 
138¢ 
139¢ 
CN, 
149¢ 
1419 


FORT=1TO1G9S:NEXT T 

RETURN 

REM KEKKKEKKKHKKEHKE 

REM FIRE COMMAND 

PRINTS PRINT"DO YOU WANT TO FIRE PHO 
(Y OR N)" 

INPUTAS 

IFAS< > "N"ANDASS OF" Y" THENL S29 
IFAS="N" THENRETURN 


PRINTTAB(S);"AT WAHT FORCE (2 TO 8) 
INPUTK 
IFK< 2ORK 28THEN1S&SO 


EN=EN-K¥2.5 
PRINT:PRINT":::: 
S, E, OR W)” 
INPUTAS 

IFAS< >"N" ANDAS<S >"S"ANDAS< > "E" ANDAS< 


IN WHICH DIRECTION 


>"W" THEN1499 


1429 
1436 
1449 


M=Si°N=S2 
FORJ=1TOK 
PRINT"SECTOR BEAM" J; 
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19459 
1469 
14796 
1486 
19499 
135909 


IFAS="N" THENM=M-1 

IFAS="S" THENM=M+t1 

IFAS="W" THENN=N-1 

IFAS="E" THENN=N+ 1 

IFM< LORM>6490RN<K LORN? 6S THENISSS 
IFA(M,N) =ALTHENPRINT: PRINT" ALIEN SH 


IP DESTROYED AT"M3N: AK=AK+1 


135965 


IFA (M,N) =ALTHENA (M,N) =@: GH=9:GJ=9°G 


OTO1549 


1516 


NDLY 
1) 


1529 


OYED 
153g 


1549 
13552 
1569 
1579 
15389 
15998 
1699 


IFA(M,N) =SBTHENPRINT"YOQU HIT A FRIE 
STARBASE!":A(M,N) =@: EN=EN/2:GOTO1LS4 


IFM=B1LANDN=B2THENPRINT" YOU’ VE DESTR 


STARBASE 29964! ":EN=6:GOTO1819 
PRINT"...NOTHING" 


NEXT J 

FORT=1TO1699°>NEXT T 

RETURN 

REM KKEEKKKKKKKKKKKKKKE 

REM ALIENS RETURN FIRE 
IFGH=9O0RGJI=@O0ORRND (1) >. 5THENRETURN 
PRINT"ALIENS AT"GH;GJI"ARE FIRING AT 


US SIR..." 


1619 
1622 
1639 
Dir" 
1642 


FORT=1TO19696: NEXT T 
R=INT (RND (1) *4) 
IFR=S@THENPRINTTAB(?7) 5 "X#*#¥THEY MISSE 


IFR=1THENPRINT"ALIEN FIRE CLIPPED T 


HE STARBOARD SIDE" 


1645 


IFR=1THENPRINT:S PRINTTAB(7) 5 "MINOR D 


AMAGE” : EN=EN-4. 75 


1659 


IFR=2THENPRINT"ALIEN FIRE HIT THE C 


REW SECTION" : PRINT 


16355 


IFR=2THENPRINTTAB(?7) "MEDIUM DAMAGE" 


> EN=EN-18.25 


1662 
RIVE 
1665 


ras be) 
1679 


16389 
1469S 


17966 
1719 


IFR=STHENPRINT"ALIEN FIRE HIT THE D 
SECTION" - PRINT 
PRINTTAB( 7) "MAJOR DAMAGE” : EN=EN-SS. 


FORT=1TO199:NEXT T 
RETURN 

REM HEEKKKKHKKKEKE 
REM END OF QUEST 
PRINT: PRINT 
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PRINTTAB(8)3 "YOU HAVE SUCCEEDED!" 
PRINT" ----------------------------- 


PRINT" YOU HAVE FOUND THE STARBASE 2 


PE=1999+ INT (RND(1) ¥1999) 
PRINT" ----------------------------- 


PRINTPE"STARBASE RESIDENTS ARE STIL 


PRINT"ALIVE, AND WILL NOW LIVE BECA 


USE OF THE" 


1896 


PRINTTAB(8); "SERUM YOU HAVE BROUGHT 


THEM" 


181¢ 


PRINT" ----------------------------- 


PRINT"YOUR RATING FOR THIS GAME IS" 


PRINTINT (PE+TS+ENXAK-1999) 

END 

PRINT" ----------------------------- 
PRINT"UNFORTUNATELY, 
THE" 
PRINT"STARBASE, 
GOTO181¢ 

REM ¥XXX*#X 
REM ENVENTS 
EV=EV+tl 

PRINT "S=SssssssssssSss5S5sSs55=5=== 


YOU DID NOT LO 


WHICH WAS AT"B1;B2 


ONEVGOSUB198@, 2089, 2299, 2359, 2519 


FORT=1TO1969¢6@°NEXT T 
RETURN 


REM KXEKXKKKKKKEKE 

PRINT" YOUR SHIP HAS FLOWN INTO TRE 
OF A” 

PRINT"GAMMA-RAY EMISSION FROM GALAC 
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2ObD 


201 
2826 


PRINT"ANTICENTER, EPIFOCUS IS VELA. 


FORT=1TO1969GO:NEXT T 
PRINT" YOQUR SHIP I5 DEVERTED BY THE 


EMISSIONS" 


2G3G 
26468 
248568 
29668 
2976 
2588 


OMIc" 


28S 


D 16. 


2198 


S1=S1+1:S2=S2-1 
IFS1>S4THENS1=64 
IFS2<¢1THENS2=1 
RETURN 

REM XHXHKHK HK HHH 
PRINT"NAVIGATION REPORTS UNUSUAL AT 
PRINT"ACTIVITY AT MAGNITUDES 4.8 AN 
13" 


PRINT"FROM KAPTEYN’S, APPARENTLY DI 


RECTED" 


21196 


2129 
2130 


PUT" 
2149 


z21isd 
2166 


2170 
2186 


oa Nar 
22068 


N 


OF 
219 


PRINT"TOWARDS UV CETI A AND B..." 
FORT=1TOI69G6:NEXT T 
PRINT"THIS SUGGESTS OUR SCANNER OUT 


PRINT"MAY BE INACCURATE..." 
Bi=Bi+2:B2=B2-2 

IFB1 >65THENB1=64 
IFB2< 1 THENB2=1 

RETURN 

REM HHEKEKHKKKKKKKEK 
PRINT"SIGNALS RECEIVED 


THE" 
PRINT"HORSEHEAD NEBULA 


FROM DIRECTI 


AT 337 PARSE 


cS SHOW" 


2222 
IN" 
2239 


22469 
22568 


PRINT"EXCESSIVE SODIUM MEASUREMENT 


PRINT" THE INTERSTELLAR DUST CLOUD.. 
FORT=1TO19906:°:NEXT T 


PRINT"WE MUST DIVERT 12% OF OUR ENE 


RGY TO" 


22668 
22/76 
2289 
2298 
230908 
2316 


PRINT"STRENGTHEN OUR SHIELDS..." 
FORT=1TO19666° NEXT T 

PRINT"ENERGY BANKS NOW HOLD"EN 
EN=./7S*EN 

FORT=1TOS9O: NEXT T 

PRINT"AFTER SHIELD STRENGTHENING, E 


NERGY" 
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2329 PRINT"BANKS REPORT A READING OF "EN 

2339 RETURN 

2Z34D REM XKKKKKKHHKKHE 

235G PRINT"FORWARD CONTROL REPORTS PROTO 
-STAR" 

236G PRINT"FORMATION IN THE GASEOUS NEBU 

LA M16" | 
237G PRINT" IN SERPENS. THE PROTON-PROTON 
REACTION" 

2388 PRINT"IS GENERATING INTERNAL TEMPER 
ATURES OF" 

2396 PRINT"THE ORDER OF 17 X 19°6-K..." 


29990 PRINT"WE MUST MOVE AWAY FROM THAT L 
OCATION..." 

2416 FORT=1TO199G:NEXT T 

2428 PRINTTAB(8)3;""’WARP DRIVE ON !7" 
24939 FORT=1TOLGSGOSINEXT T 


2449 
2459 
24969 
2497h5 
249380 
24996 
2399 
Zoi 
23520 
31d 

2338 


"UNITS, 


234996 


SL=SiI+tINT (RND( 1) ¥3) 

S2=S2+tINT (RND(1)¥3) 
IFS1>649THENS1=64 

IFS2>64THENS2=64 

FORT=1TO1@GOSG: NEXT T 

RETURN 

REM KXKKHKHKHKKKKKHKK 
PRINT"WARNING...WARNING...” 
FORT=1TO3S9@:NEXT Ti IFRND(1)>.7THEN2 


PRINT"BLACK HOLE WITHIN"RND(1)*199¢ 
IN" 


PRINT"DIRECTION"RND(1)*#19990" HEADIN 


G"RND (1) *34 


2558 
2368 


FORT=1TOS9S:NEXT T 
PRINT: PRINT"GRAVITATIONAL LENS EFFE 


CT IS PUTTING" 


25708 PRINT"EXTREME STRAIN ON GALACTIC IM 
AGE AS" 
2589 PRINT"SEEN BY INITIATED PROCESS"INT 


(RND (1) #1969) /196 


2596 
26GDG 
26190 
26268 
26328 


M=S2°552=51°S1=m 

PRINT"WE ARE TUMBLING... "; 
IFRND(1)>.494THEN2696 
RETURN 

REM KEKKKHHHKE 
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2649 
26359 
26608 
2676 
24309 
2O9D 
2786 
2710 
2726 
2736 


27499 
27356 
2/766 
27768 
2786 


2/98 
2398 


2316 
28295 
28330 
2346 
23598 
2369 
2376 
28339 
239 
2968 
2919 
2928 
2I9SD 
2949 
2939 
2968 


2978 
29°85 


REM INITIAL ISE 
PRINT" {CLR}" 


PRINTS PRINT"PLEASE STAND BY.";5 


REM 


DIMA (64, 64) 

AL=ASC ("A"): REM 
AK=@:REM ALIENS 
SH=ASC ("S") !: REM 
SB=ASC("B") :REM 
TA=ASC("T") REM 


EN=393 


ALIEN 
KILLED 

YOUR SHIP 

STAR BASE 
TARGET OF GAME, 


STARBASE 2999 
TS=1999:REM STARDATE 


REM ** CREATE UNIVERSE ** 


FORM=1TO39¢ 
PRINT". 
FORN=1TO2 


C=INT (RND(1)¥64) +1 
D=INT (RND(1)%¥64) +1 
IFN=1THENA(C, D) =AL 
IFN=2THENA(C,D)=SB 


NEXT N 
NEXT MM 


REM *%* STARBASE 2960 ** 
Bi=INT (RND (1)*64) +1 
B2=INT (RND(1)*¥64) +1 


A(B1,B2)=TA 


REM ** START POSITION, SHIP ¥** 
S1=INT (CRND (1)*64) +1 
S2=INT (RND(1)¥64) +1 


IFS1=B1ORS2=B2THEN29169 


A(S1,S2)=SH 


PE=9 


GH=9: GJ=6 


EV=9 


RETURN 
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SECRET AGENT 


Four secret agents, from four major cities, are on their 
way to meet the head of their government in a “fifth 
major city. They all carry the same secret papers which 
contain information on how to defeat all the other 
governments. Therefore, only the government who gets the 
information first can use it effectively. 


bath, MGs ‘$b. 


ail A 
.¢ “ ee 
aw. ’ ' ove 
U . s, 
1 ee 
5 De 


The computer’ takes the role of one secret agent, and 
three human beings take the other roles. The game is 
very easy to play. When it starts, you'LL first be told 
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the cities which are involved (they change from run to 
run of the game): 


Here are the cities: 
SHANGHAI 

RANGOON 

WASHINGTON 

MOSCOW 

BANGKOK 


You will be sesked to enter the names of the three human 
players: 


ENTER AGENT NAME NUMBER 1 ? WENDY 

ENTER AGENT NAME NUMBER 2 ? PETER 

ENTER AGENT NAME NUMBER 3 ? DR HOOK 
I WILL BE AGENT NUMBER 4 


The computer will then allot the human players to their 
Starting cities and will tell you which city you are all 
heading for 


HERE ARE THE CITIES YOU ARE COMING FROM: 


WENDY = SHANGHAI 
PETER = RANGOON 

DR HOOK = WASHINGTON 
COMPUTER = MOSCOW 


THE PAPERS MUST BE DELIVERED 
TO BANGKOK 


A highly accurate map is then shown, with the initials 
of the players (with C for computer) shown in their 
Starting locations. The ‘target city' (Bangkok in this 
case) is shown in the center of the map: 
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SHANGHAT RANGOON 
Wee = = ge we we ew ew = = P 
Sy Nas: eed see oe Oe: oe 2s = 
De - = = = = ewe e- = = = C 
WASHINGTON MOSCOW 


Dice are rolled for each player. The player with’ the 
highest total for that round moves one step closer to 
the target city: 


WENDY FROM SHANGHAI - 7 

PETER FROM RANGOON - 3 

DR HOOK FROM WASHINGTON - 8 
COMPUTER FROM MOSCOW - 6 

AGENT DR HOOK MOVES TOWARDS BANGKOK 
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SHANGHAI RANGOON 


W=-— = = = &@ = = = - = = P 
Se Wy) ae> Be ey es ss ee. sw 


WASHINGTON MOSCOW 


SHANGHAI RANGOON 


a ee ee ee 
Ss, tet tage Sage a es, A Sees es, Ge, ee SS 
ae ee ee ee ee ee 
ek ee a ee fee ee, Ve ee es 1 


WASHINGTON MOSCOW 


WENDY FROM SHANGHAI - 2 

PETER FROM RANGOON = 8 

DR HOOK FROM WASHINGTON = 7 
COMPUTER FROM MOSCOW - 9 

AGENT COMPUTER MOVES TOWARDS BANGKOK 
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If two 
rolled 


players roll the same 


this might 
rolled third 
the dice seem to even things out: 


SHANGHAT 


WASHINGTON 


and fourth (one human and one 


total, 
it first makes the move. 


WENDY FROM SHANGHAI = 


PETER FROM RANGOON = 


the 


player who 


Despite the fact that 
seem to count against the players who are 


12 
RANGOON 
isi “ste UPS ade nk 3 
ee ee 
MOSCOW 
\ 
6 


DR HOOK FROM WASHINGTON - 


COMPUTER FROM MOSCOW =] 


(( 


5 


computer), 


AGENT COMPUTER MOVES TOWARDS BANGKOK 


The race belongs only to the 


SHANGHAI 


W 


_ DAY 


swift: 
16 

RANGOON 
, De ay Hy 2S 
Co ek es Jae 
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WENDY FROM SHANGHAI = 9Q 

PETER FROM RANGOON = 7 

DR HOOK FROM WASHINGTON = 12 
COMPUTER FROM MOSCOW = 5 

AGENT DR HOOK MOVES TOWARDS BANGKOK 


DAY 17 
SHANGHAT RANGOON 
mot OY) ass eee see Se ee we AS os en Sy 
ge, ect: ey Ss Pee ess ney, ee, Hs ee 
See seh cf ae? Ves tee I) ns wes ode et 2 xe 
se Ee eee Ses i> Shee se OE es a et fap ee 
WASHINGTON MOSCOW 


AGENT DR HOOK GOT THE PAPERS 
TO BANGKOK FIRST 


IT TOOK 17 DAYS 


When you're feeling Like a Little jaunt to Bangkok, 
Khartoum, Shanghai or Quito, roll up a fé@w dice, and run 
the following program: 


1g 
26 
3a 
4g 
5a 
6G 
7B 


3d 
PO 


REM SECRET AGENT 

REM DICE GAME FOR 3 PLAYERS 
REM PLUS THE COMPUTER! 

REM 

GOSUBS296: REM INITIALISE 
GOSUB3794: REM MAP 

IFOG< SS@THENI GS 

GOSUB16@6:REM DICE ROLL 
GOTO62 
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198 PRINT" {WHTSAGENT "3 BS(0G)5" GOT THE 
PAPERS" 


116 PRINT"TO "AS(5)" FIRST" 

126 PRINT 

136 PRINTTAB(12)3;"{YEL3IT TOOK"DA"DAYS" 
1496 END 


L5G REMEXKHKKKKKKK KKH HH 

16@ REM ROLL THE DICE 

178 PRINT 

18g M=1 

19@ FORJ=1TO4 

288 C(J)=INT(RND(1)*6+RND(1)%6) +1 

21G PRINT"{WHT}"BS(J)3"{LT GRN} FROM "3A 
S(J)E" - "se07) 

22G IFC(J)>C(M) THENM=J 

238 NEXTI 

24 PRINT!IPRINT"{PUR}FAGENT {WHT3"3BS(M) 3 
"{PUR} MOVES TOWARDS "3AS(5) 

25@ IFM=1THENZ(A1,A2)=45:A1=A1+1:A2=A2+1 
=Z(A1,A2) =ASC (BS(1)) 

269 IFM=2THENZ(B1,B2)=45!:Bi=Bi+1:B2=B2-1 
°Z(Bi, B2)=ASC (BS(2)) 

278 IFM=3THENZ(C1,C2)=45!:C1=C1-1:C2=C2+1 
»Z2(C1,C2) =ASC (BS(3)) 

289 IFM=4THENZ(D1,D2)=45!:D1i=D1-1:D2=D2-1 
-2(D1, D2) =ASC (BS (4) ) 

299 IFA1=7ANDA2=7THENOG=1 

3G@@ IFB1=7ANDB2=7THENOG=2 

319 IFC1=7ANDC2=7THENOG=3 

329 IFD1=7ANDD2=7THENOG=4 

33@ GOSUB1I919 

349 RETURN 

35@ RETURN 

BSG REM KXXKKXKHHX 

378 REM THE MAP 

389 PRINT"{CLR}":PRINT 

398 DA=DAt1 

49@ PRINTTAB(9) "{CYN}DAY"DA 

419 PRINT"{LT BLU} "AS(1) TAB(26-LEN (AS (2) 
.)5AB(2) 

429 FORJ=1TO13 

438 FORK=1T013 

449 PRINT" {OR} "CHRS(Z(J,K))3" "3 

45@ NEXTK | 
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466 PRINT 


478 NEXTIJ 
4986 PRINT"{LT BLU} "AS(3) TAB (26-LEN(AS(4) 


»)5;AB(4) 
499 GOSUB191¢ 


598 RETURN 

SLAP REM HHHKKHHKHHHHKHKKHK 

526 REM INITIALISATION 

539 PRINT"<CLR3" 

54@ POKES3281, 9: POKE53289,5 

S59 DIMAS(5),BS(4),C(4),2(13,13) 

569 PRINT!:PRINT"HERE ARE THE CITIES:”" 
S78 FORIJ=1TO5 

58@ RESTORE 

599 FORT=1TORND(1)*16+1 


6968 READBS 
616 NEXT T 


628 AS(J)=BS 
638 T=1 

649 IFT>=JTHEN67@ 

659 IFAS(T)=AS(J) THENSSS 

668 T=T+1:GOTO64S 

678 PRINTAS(J) 

68 NEXT J 

698 PRINT: PRINT 

7@@ FORI=1TOS 

718 PRINT"ENTER AGENT NUMBER"J 

72G INPUTBS(3J) 

738 NEXT J 

749 PRINTTAB(S5)3;"I WILL BE AGENT NUMBER" 
4 

75@ BS(4)="COMPUTER" 

76@ GOSUB1919 

77@ PRINT:PRINT"HERE ARE THE CITIES YOU 
ARE COMING FROM: " 

788 FORIJ=1T04 


79G PRINTBS(J)5" - "SAB(IJ) 

SOG NEXTI 

816 PRINT: PRINT" THE PAPERS MUST BE DELIV 
ERED" 


S26 PRINTTAB(9)3;"TO "SZ AS(5S) 


839 FORIJ=1TO13 
849 FORK=1TO13 
S59 Z2(J,K)=45 
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S68 NEXT K 

876 NEXTIJ 

S89 A1l=1:°:A2=1°: REM AGENT ONE 
S99 Bi=1:B2=13:REM AGENT TWO 
769 Ci=13:C2=1:REM AGENT THREE 
9196 D1i=13:D2=13:REM AGENT FOUR 
9289 Z2(A1,A2)=ASC (BS(1)) 

9396 2(B1,B2)=ASC(BS(2) ) 

P49 2(C1,C2)=ASC (BS(3) ) 


956 2(D1,D2) =ASC (BS(4) ) 
26G 2(7,7)=ASC(AB(5)) 


S78 OG=9 

988 DA=G 

999 RETURN 

LIGA RM HKHKEKKKHKKHKKHEKHEKHKHKE 

1919 REM DELAY LOOP 

1929 GETGS: IFGS=""THEN1IG2¢9 

19396 RETURN 

1649 DATA"MOSCOW", "PEKING", "WASHINGTON", 


"PARIS", "GENEVA", "BONN", "KHARTOUM" 
195@ DATA"SHANGHAI", "TOKYO", "ALGIERS", "O 


TTAWA", "CALCUTTA", "RANGOON", "BANGKOK" 
1969 DATA"QUITO", "CARACAS", "NAIROBI" 


READY. 
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This iS a most unusual board game, in which the aim is 
to ‘'drive' off the side of the board opposite your 
starting side. You are the O's down the Left hand’ side 
and you're driving straight across the board. The 


computer controls the Little X scat bikes, and they are 


heading due north. Here's how the board Looks at the 
start of the game: 
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My score: 0 
Your score: 0 


nu fPWh — 
OOO 0 


1234 5 6 


Stand by for my move... 


At any time, you can move one square in any direction. 
There are no captures, with the 'scores' at the top of 
the screen indicating how many of the O's or X's have 
made it from their respective sides of the board. 


The computer moves first, and then you enter your move 
as the number from which you're moving and the number 
you're moving to. 


My score: 0 
Your score: 0 


NU & UW) NM —= 
o0oO00 
Sg eo e e 


ENTER YOUR MOVE (side, bottom)? 21 


FROM 21 TO? 22 
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Itlegal moves are, as you can see, firmly rejected: 


My score: 0 
Your score: 0 


HI SW hw — 
OoOoa°o. 


ENTER YOUR MOVE (side, bottom)? 22 


FROM 22 TO? 24 
>>You canft move that far! 


FROM 22 TO? 23 


Here's a few more 'snapshots' of the game in action, 
Leading up to a narrow victory by the computer: 


My score: 0 
Your score: QO 


1 

2. .kKX OX 

Se: ‘win ac. 

4.000. 

5 . XX. . 

6 oc 8 e 
123 4 5 6 
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ENTER YOUR MOVE (side, bottom)? 43 


FROM 43 TO? 34 


Your score: 2 


NO Ely WO — 
Oo 
e 


ENTER YOUR MOVE (side, bottom)? 44 


FROM 44 TO? 45 


Your score: 3 


NU ew NY = 
@ 
© 
° 
° 
© 


1234 5 6 


I'm the winner! 


If you decide you can't face the pace any longer, enter 
a zero when it is your turn to move. 


216 


REM SCAT BIKES 
GOSUB?776: REM INITIALISE 
GOSUB216:REM PRINT BOARD 
IFCS=40RHS=4THEN149 


GOSUB38S9: REM COMPUTER MOVE 
GOSUB 719: REM PRINT BOARD 


IFCS=40RHS=4THEN1I49 
GOSUB596: REM HUMAN MOVE 
FORJ=2TO5:A(J)=46: NEXT J 
FORIJ=446TO1L46STEP-19 
A(J)=46:NEXTI 

SOTOSKI | 

TREM EHH HHH HHI HHH 

KEM END OF GAME 

PRINT 


IFCS>HSTHENPRINT"{YELSI’7M THE WINNER 


IFCS<HSTHENPRINT"{YEL3YOQU’RE THE WIN 


In 
PRINT: PRINT: PRINT 
END 

REM HHEKKEKKEKKHKEHKKKKE 
REM PRINT BOARD 


PRINT" {CLR3"2PRINT: PRINT 


PRINTTAB(7)3;"{PURIMY SCORE: "CS 
3 YOUR SCORE: "HS 


PRINTTAB(3S) 
PRINT 


PRINTTAB(6)5 "1"2PRINTTAB(6) 5 "2 


FORJ=11TOS55 
PRINTCHRS(A(J))35" "5 


IFJ=15THENJ=296: PRINT: PRINTTAB(6) 


IF J=25THENJ=392 PRINT? PRINTTAB(64) 


IFJHSSSTHENJ=49: PRINT: PRINTTAB(4) 


IFJ=4STHENJ=S9°:PRINT: PRINTTAB( 6) 


NEAT J 

PRINT: PRINT 
PRINTTAB(8)3;"1 2 3 4 5 
RETURN 

REM HHEKEKKKHHHHKHKKHHKE 
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- 


wy 


"4 


cs 


"SS 


38@ REM COMPUTER MOVE 

398 PRINT!:PRINT"{CYN3STAND BY FOR MY MOV 
EE..." 

395 FORTT=1TO1999: NEXT 

4gG Y= 

419 Y=Yr1 

42G Z=INT(RND(1)¥44) +12 

430 IFY<S@@GANDA(Z) < >SS8THENG19 

449 IFY>499THENGOSUB219: PRINT: PRINT"{YEL 
}I CONCEDE, CHAMP! ":END 

458 IFA(Z-19) =46THENW=Z-19: GOTO55¢ 


469 U=9 
478 J=INT(RND(1)*¥2) +1 


48g U=U+1 
499 IFJ=1THENM=-11 
599 IFJ=2THENM=-9 
519 wW=z+m 
529 IFAW) =46ANDWC >41 ANDWC >SLANDWS >21 AND 
W< >LITHENSS@ 
S38 IFU<4THENG7@ 
549 GOTO41¢ 
S58 A(Z)=46:A(W) =88 
S69 IFZ<16THENCS=CS+1 
578 RETURN 
SSH REM KXXKKHKKKHHKKH KEE 
S99 REM HUMAN MOVE 
669 PRINT:PRINT 
619 REM ENTER @ TO CONCEDE 
628 INPUT"{GRN}ENTER YOUR MOVE (SIDE, BOT 
TOM) "5x | 
639 IFX=STHENPRINT"{YEL} >>THANKS FOR TH 
E GAME, LOSER! ":END 
649 X=X-19 
659 IFX<60RX>45THENPRINT"{CYN} >>NOT AL 
EGAL ‘MOVE! ":GOTO629 
668 IFA(X)<>79THENPRINT"{CYN} >>YOU DO N 


OT HAVE A PIECE THERE”: GOTO629 
678 PRINT: PRINT"FROM"X+193 


689 INPUT"TO";Y 

699 Y=Y-19 

76G IFY<60RY>4STHENPRINT" (CYN3>>NOT AL 
EGAL MOVE!" :GOTO6é29 

218 IFACY) < >46THENPRINT"{CYN} >>YOQU CANN 
OT MOVE THERE!":GOTQ689 
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729 IFABS(X-Y) >110RABS(X-Y) >1ANDABS(X-Y) 
CPTHENPRINT"{CYN327YQU CAN’ T MOVE THAT F 
AR": GOTO679 

73GB ACK) =H=462 AY) =79 

799 IFY=160RY=260RY=360RY=46THENHS=HS+t1 

7398 RETURN 

ZOD REM HEHKKKKHKKHKHKKHHHEKE 

7798 REM INITIALISE 

736 POKES3281,96:POKES3289,8 

796 DIMA(S4) 

3890 FORJ=1TOS6 

816 A(J)=46 

826 NEXTI 

830 FORIJ=1TO? 

3949 READK: READY 

S58 ACK) = 

S69 NEXT J 

376 HS=9: REM HUMAN SCORE 


889 CS=9:REM COMPUTER SCORE 
E99 RETURN 


988 DATAI1,79, 21,79,31,79,41,79 
919 DATAS2, 88,53, 898, 54, 88, 55,88,51,32 


READY. 
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THE VOYAGES OF 
MAGELLAN 


You no longer need to worry over the unfortunate fact 
that neither you, nor your trusty computer, were in 
existence back in the early 1500's. Although you missed 
out on the first circumnavigation of the globe, you can 
re-enact the expedition as many times as you Like — with 


an enormous variety of possible outcomes — with the aid 
of this program. 


sai Aro TT 


Fi a / ye aS | Suramee oT 
yA < 


a > a re. z a oF ; nes ih i yi 
V. mee AT TBH i Nee ih 
meat avery! Vi ae ee o\A i 
[p yi Ll ee Ko i Avy 


7 Wee 2 in 
: ey a a4 : : a 
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Ferdinand Magellan Left his native country of Portugal 
for Spain after four years of fruitless attempts to get 
financial backing for his planned voyage around the 
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world. Charles V of Spain Lent a more sympathetic ear to 
the project, and in September 1519, Magellan set sail on 
the greatest journey man had ever undertaken. Five 
ships, in pretty poor condition, and only 280 men, did 
not suggest the voyage would prove’ successful. But 
although Magellan himself did not complete the first 
complete voyage around the globe (he was killed on a 
small island in the Philippines) the main ship -— the 
Victoria - finally Limped back to Spain, three years 
after they had begun. 


Records show the expedition was outfitted with two and a 
half tons of gunpowder, twenty-one quadrants and seven 
astrolabes. On this voyage, when you're in charge of the 
Victoria, you'll have all this and more as you will see 
shortly. In this program, you have to keep your’ men 
fed, by carefully trading with natives you meet as you 
sail. As well, you may well be forced to deal with such 
diversions as shipwreck, mutiny and pirates. If you 
keep your head, you'LL eventually make it back to Spain, 
after visiting many of the ports where the Victoria 
actually called. 


The computer takes the role of the first’ mate, 
cheerfully bringing you up to date on the current 
events: 


wooo et eaeoeo Faeroe amerna@weceae Oo Oe oI CO fe eet ewe a oe awe oe ae & Cc 


CAPTAIN FERDINAND, REPORT FOR WEEK 1 


WE ARE SETTING SAIL FROM SPAIN 
WITH A CREW OF 112 HEARTY MEN 


WE ARE AT THE CANARY ISLANDS 
THE TREASURY HOLDS 208 DUBLOONS 


THE GALLEY STORES HOLD 111 SACKS 
OF FOOD, ENOUGH FOR 9 WEEKS 


ENTER 1 TO INSPECT THE HOLD 


2 TO TRADE WITH THE NATIVES 
3 TO SET SAIL FOR OUR NEXT PORT 
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It is good to know what you have on board to sell, to 


allow you to buy food for your perpetually-ravenous 
crew: 


IN THE HOLD YOU SEE: 

113: BOLTS OF CLOTH WORTH 1017 DBLNS 
16 ASTROLABES WORTH 368 DBLNS 

50 SACKS OF SALT WORTH 400 DBLNS 

37 IRON INGOTS WORTH 185 DBLNS 

11 QUADRANTS WORTH 385 DBLNS 


TOTAL VALUE OF GOODS IS 2355 DUBLOONS 
PRESS 1 TO TRADE WITH THE NATIVES 
OR 2 TO RETURN TO THE VOYAGE 


Life at sea is hard, even with all that food, and from 
time to time you'LL notice a crewman or two missing at 
roll-call: 


Qqagaaweocnc ew ae weweergeawae Ss &S a awepee Bev — FTF Ge FF GO G GP ow Sw eH GF G&G ++ GF ew aw 


CAPTAIN FERDINAND, REPORT FOR WEEK 4 
® YOU HAVE 110 MEN ®&- 


WE ARE AT THE CAPE VERDE ISLANDS 
THE TREASURY HOLDS 208 DUBLOONS 


THE GALLEY STORES HOLD 75 SACKS 
OF FOOD, ENOUGH FOR 6 WEEKS 


ENTER 1. TO INSPECT THE HOLD 


2 TO TRADE WITH THE NATIVES 
3 TO SET SAIL FOR OUR NEXT PORT 
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Trading with 'the natives' can be interesting: 


CAPTAIN, WHICH GOODS WILL WE SELL? 

- BOLTS OF CLOTH 

- ASTROLABES 

- SACKS OF SALT 

- IRON INGOTS 

BARRELS OF GUNPOWDER 

- QUADRANTS 

- TO BUY FROM NATIVES 

- TO RETURN TO VOYAGE 

WE HAVE 50 SACKS OF SALT WORTH 8 

DBLS EACH 

THE LOCALS* BEST OFFER IS 5 EACH 
HOW MANY DO YOU WANT TO SELL? 25 


WE HAVE 37 INGOTS WORTH 5 DBLS EACH 
THE BEST OFFER FOR IRON IS 4 EACH 
HOW MANY DO YOU WANT TO SELL? 37 


ONNAU FWD = 
Q 


CAPTAIN, WHICH GOODS WILL WE SELL? 
1 = BOLTS OF CLOTH 

2 =- ASTROLABES 

3 = SACKS OF SALT 

5 = BARRELS OF GUNPOWDER 

6 - QUADRANTS 

7 - TO BUY FROM NATIVES 

8 = TO RETURN TO VOYAGE 


awa eaeemeeaoeoeaemoenewoeoormrtora eam orwa@moanoertTameaeom@moeoewewae 8 & @ &S wo aos ce» 


>> YOU HAVE 481 DBLNS << 


THE NATIVES ARE OFFERING: 
1 = FOOD AT 13 DBLNS PER SACK 
2 = SLAVES AT 34 DBLNS EACH 
3 = TO RETURN TO VOYAGE 
HOW MUCH FOOD DO YOU WANT? 100 
YOU DO NOT HAVE ENOUGH MONEY 
2? 25 
> TRANSACTION COMPLETE < 
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>> YOU HAVE 156 DBLNS << 


THE NATIVES ARE OFFERING: 
1 - FOOD AT 15 DBLNS PER SACK 
2 - SLAVES AT 31 DBLNS EACH 

3 - TO RETURN TO VOYAGE 


THEY'VE BEEN ADDED TO YOUR CREW 


And so your journey continues: 


CAPTAIN MAGELLAN, PROGRESS OF 
THE VICTORIA FOR WEEK 5 


* YOU HAVE 115 MEN # 


STORES HOLD FOOD FOR 7 WEEKS 


WE ARE SAILING... 


CAPTAIN MAGELLAN, PROGRESS OF 
THE VICTORIA FOR WEEK 6 
® YOU HAVE 113 MEN 8 


STORES HOLD FOOD FOR 6 WEEKS 


OUR VOYAGE CONTINUES... 


DUE TO A LACK OF FRESH FOOD 
SCURVY HAS HIT YOUR SHIP... 
29 MEN HAVE DIED 


Finally, despite all your efforts, the elements may tu-n 
against you, bringing the voyage to an abrupt halt: 
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YOUR SHIP IS FOUNDERING ch HEAVY 
SEAS...YOU ARE IN PERIL....... 


A MIGHTY WAVE SWAMPS YOUR SHIP 
AND IT GOES DOWN TO THE BOTTOM 


THE VOYAGE LASTED 11 WEEKS 


Alternatively, fate might be kind, leading to an ending 
such as this one: 


WELL DONE, CAPTAIN 


YOU'VE MADE IT BACK TO SPAIN 
YOU ENDED THE VOYAGE WITH 116 DBLNS 
113 BOLTS OF CLOTH, 16 ASTROLABES 
O SACKS OF SALT, 0 IRON INGOTS 

3 BARRELS OF GUNPOWDER, AND 
11 QUADRANTS 


YOUR SCORE IS 3874 


THE VOYAGE LASTED 11 WEEKS 


Much of our knowledge of the events of the voyage comes 
from an Italian crew-member named Pigafetta, who kept a 
diary during the journey, and Later converted it into 
book form. He tells how he wanted to go with Magellan 
"to experience and see with my eyes a part of the very 
great and awful things of the Ocean". Now, without 
having togo begging to Charles V of Portugal,you can see 
some "great and awful things": 


1@ REM VOYAGES OF FERDINAND MAGELLAN 
26 GOSUB2876: REM INITIALISE 

30 PRINT"{CLR}"2 PRINT 

46 T=INT (RND(1)%#3) 

38 WEEK=WEEK+1 

69 FOOD=INT (FOOD-FEEDXMEN) 

78 IFFOOD< 1 THEN28¢9 
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SG IFRND(1)>.74THENMEN=MEN-INT (RND(1) 3) 


95 PRINT" {GRN;>" 
168 IFT=9THENPRINT"CAPTAIN MAGELLAN, PRO 


GRESS OF":PRINT"THE VICTORIA FOR WEEK"WE 
116 IFT=1THENPRINT"CAPTAIN FERDINAND, SHI 
P’?S LOG FOR WEEK"WEEK 

126 IFT=2THENPRINT"CAPTAIN FERDINAND, RE 


PORT FOR WEEK"WEEK 
139 IFPT=10RPT=9THENS4@ 


149 MEN=INT (ABS (MEN) ) 

158 PRINTTAB(8)3"% YOU HAVE"MEN"MEN ¥" 
169 IFMEN<19THENPRINT"THAT IS NOT ENOUGH 
TO SAIL THE":PRINT"VICTORIA, SO WE MUST 
STAY" 

161 IFMEN<19THENPRINT"HERE IN "3AS(PT):G 

OTO064¢g 

17@ PRINT"{YEL}------------------------- 


175 PRINT: PRINT 

186 T=INT (RND(1)¥3.5) 

199 IFAS=9O0RQU=9THENPRINT"YOU DON’T HAVE 
ANY INSTRUMENTS": PRINT"TO NAVIGATE WITH 
Pieten 

191 IFAS=G6O0RQU=6THENPRINT"THIS IS THE EN 
Decca anne "3; GOSUB3199: GOTO649 

£668 IFT=@THENPT=PT+1:PRINT"WE ARE AT "3A 

$S(PT) > IFPT=9THENG1S 

219 W=INT (RND(1)¥2) 

2296 IFINT (FOQD/ (FEEDXMEN) )<1THEN2SS 

238 IFT>STHENPRINT: PRINTTAB(RND(1)¥4)5'"S 
TORES HOLD FOOD FOR" INT (FOOD/ (FEEDXMEN) ) 
"WEEKS" 

299 IFT?GANDW=1THENPRINT: PRINTTAB(RND(1) 


¥8)5 "WE ARE SAILING...":;GOTO469 
259 IFT>?SANDW=S9THENPRINT: PRINTTAB(RND (1) 
¥8)5"QUR VOYAGE CONTINUES..." :GOTOQ466 


266 IFMEN< 1 S@THENPRINT" YOUR CREW IS TOO S 
MALL TO SAIL THE": PRINT"VICTORIA, SO WE 
MUST” 

261 IFMEN<1STHENPRINT"STAY HERE": PRINTTA 
B(S)5 "IN "SAS(PT) :GOTO649 

2798 IFFOOD?1THEN3S49 
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286 PRINTTAB(S);"YOQU HAVE RUN OUT OF FOO 
D!";GOSUB3199 
2°99 PRINTTAB(S)3; "ALL OF YOUR MEN HAVE DI 


ED ees 
399 PRINTTAB(S); "YOU ARE DYING TOO..." 


3196 GOSUB3199 
3206 PRINTS PRINTTAB(S)3"A PITY IT IS ALL 


OVER..." 


339 PRINT: PRINTTAB(S)5 "THERE IS SO MUCH 
ON BOARD": PRINT: GOTO6499 
3490 PRINT: PRINT" THE TREASURY HOLDS"CASH" 


DUBLOONS" 
350 PRINT: PRINT" THE GALLEY STORES HOLD"F 


ooD"SACKS" 

569 PRINT”"OF FOOD, ENOUGH FOR" INT (FOOD/ ¢ 
FEEDXMEN) ) "WEEKS" 

378 PRINT: PRINT"ENTER 1 TO INSPECT THE H 
OLD" 

3898 PRINT" 2 TO TRADE WITH THE NATI 
VES" 

3998 PRINT" 5S TO SET SATL FOR OUR NE 
XT PORT" 

499 GETBS: IFBS=""THENSSS 


419 REM 
426 IFBS< "1" ORBS>? "3" THENSSS 


439 IFBS="1"THENGOSUB749 

9499 IFBS="2"THENGOSUB94@: GOTOS1I9 

456 REM*XX INCIDENTS **% 

46@ RN=INT(RND(1)¥21) 

476 IFRN=1THENSC=SC+1: IFSC=3THENRN=2 
471 IFRN=1ANDSC< >3THENGOSUB2139 

489 IFRN=2THENSH=SH+1: IFSH=2THENRN=3 
481 IFRN=2ANDSH< >2THENGOSUB223@ 

499 IFRN=3THENMU=MU+1: IFMU=2THENRN=4 
491 IFRN=S3ANDMU< > 2THENGOSUB242¢ 

5@@ IFRN=4THENPI=PI+1: IFPI=3THENG6S 
581 IFRN=4ANDPI< >3THENGOSUB269¢ 

51i@ GOSUB319¢ 

529 GOTO 3¢ 

SSA REMHKHHHMIHHIHHHHHHHH 

549 REM PORT OF SPAIN 


228 IFPT>STHEN619:; REM END 
@ PRINT: PRINT"WE ARE SETTING SAIL FROM 


SPAIN" 
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S78 PRINT"WITH A CREW OF "MEN"HEARTY MEN" 
386 GOSUB3199¢ 

S96 PRINT" {CLR}":PRINT: PRINT 

696 T=0:GOTO26S 

619 REM**X END OF VOYAGE ** 


626 PRINT"WELL DONE, CAPTAIN" 
639 PRINT: PRINT" YOU’ VE MADE IT BACK TQ S 


PAIN" 

6499 PRINT" YOU ENDED THE VOYAGE WITH"CASH 
"DBLNS" 

659 PRINTBOLT" BOLTS OF CLOTH, "ASTRO"ASTR 
OLABES" 


669 PRINTSA"SACKS OF SALT, "IRN"IRON INGO 
Ts” 

678 PRINTGUNPOWDER"BARRELS OF GUNPOWDER, 
AND" 

686 PRINTTAB(9) ; QUADRANTS" QUADRANTS" 

699 PRINT: PRINTTAB(S)3;"YOUR SCORE IS"; 
691 ZX=INT ( (BO+2Z¥ASt+SAt+2ZHIR+ 3X¥GUtZHRU) ¥ ( 

WEXME+CA) /62) 

692 PRINTZX 

799 PRINT: PRINTTAB(5) 3 "THE VOYAGE LASTED 
"WE "WEEKS" 

719 GETB&: IFBS=""THEN7Z1G 

729 END 

FBG REMKKK KKK HHH HHH HHH HHH HHH 

749 REM INSPECT HOLD 

741 PRINT" {(PUR}------------------------- 
759 LoOT=a 

755 PRINT"{(CYN}" 

76M PRINT"IN THE HOLD YOU SEE:" 

77G IFBO>S@THENPRINTBO"BOLTS OF CLOTH WOR 

TH" BO¥BC "DBLNS"!:LO=LO+BO*XBC 

786 IFAS>@THENPRINTAS"ASTROLABES WORTH"A 
S¥AC"DBLNS" !LO=LO+AS*AC 

79G IFSA>@THENPRINTSA"SACKS OF SALT WORT 
H"SAXCS"DBLNS" !:LO=LO+SAX*CS 

SGG IFIR>S@THENPRINTIR"IRON INGOTS WORTH" 
IRX¥IC"DBLNS" :LO=LO+IRXIC 

819 IFGU>@THENPRINTGU"BARRELS OF GUNPOWD 
ER WORTH"GU*¥GC"DBLNS" : LO=LO+GUX¥GC 

829 IFQU>STHENPRINTQU"QUADRANTS WORTH"GU 

¥QC"DBLNS" :LO=LO+QU*QC 
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S36 PRINT: PRINT" TOTAL VALUE OF GOODS IS" 
LOOT" DUBLOGNS" 
849 PRINT"PRESS 1 TO TRADE WITH THE NATI 


ES 35 


38 PRINT" OR 2 TO RETURN TO THE VOYAG 
E" 

S69 GETBS: IFBS=" "THENS6D 
3790 REM 


S86 IFBS<"1"OQRBS>"2" THENS6O 

899 IFBS="1" THENBS="2" > RETURN 

966 IFBS="2" THENBS="3" 2 RETURN 

9635 PRINT"{LT BLU?" 

919 RETURN 

926 END 

P3G REMEKKKKHKKKKHKHKKEE 

°49 REM TRADE 

959 PRINT"{GRN}------------------------- 


P66 PRINT" {LT GRN3CAPTAIN, WHICH GOODS W 
ILL WE SELL?" 

765° PRANT" <GRN 3 33S =— S344 e=S3 534 S-e4o— 
a a ae aa {YEL3"5 

9798 GETBS: IFBS=""THENS7G 

989 IFBOSSTHENPRINT"1 - BOLTS OF CLOTH" 
299 IFAS>STHENPRINT"2 - ASTROLABES" 

19690 IFSA>STHENPRINT"S - SACKS OF SALT” 
1916 IFIR>@THENPRINT"4 - IRON INGOTS" 
1926 IFGU>STHENPRINT"S - BARRELS OF GUNP 
OWDER" 

1936 IFQU>STHENPRINT"6 - QUADRANTS" 

1646 PRINT"? - TQ BUY FROM NATIVES” 

19656 PRINT"S - TO RETURN TO VOYAGE" 

14608. (PRL HSS eS = SSS Se Sea a aS =e 
1979 GETAS: IFAS=""THENIG/S 

1989 IFAS<"1"OQRAS>"S" THENILS79 

1996 IFAS="S"THENPRINT"{LT BLU" > RETURN 
196935 PRINT" {WHT}3" 

11990 IFAS="1" THEN1 299 

11196 IFAS="2" THEN1I3196 

1126 IFAS="3" THEN1429 

1136 IFAS="4" THEN153¢0 


11496 IFAS="5" THEN1649 
1150 IFAS="6" THENI7S2 
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11696 IFAS="7" THEN1869 

1179 GOTO197¢ 

1186 GOSUB3199¢ 

11996 RETURN 

1266 REM **% SELL CLOTH ** 

1216 IFBO<1THEN118¢ 

1226 PRINT"WE HAVE” BO"BOLTS WORTH"BC" DBL 
NS EACH" 

1239 PR=INT (BC¥RND(1)):2IFPR<BC/2THENIL2396 


12496 PRINT"THE NATIVES ARE OFFERING"PR"P 
ER BOLT" 


12495 PRINT"{RED} °7%"*%4*#* 2 a4 uununnnnennnnnnen 
ADEM RE EE SE 
1259 PRINT"{RVS ON}{YEL3} HOW MANY D 


O YOU WANT TO SELL "3 
1255 PRINT"{RED} “%* "#4 #uUwnnHnnnnnneAnnAnnnsn 


wwwuuuuuuuauuwuut RYS OFFI(GY 33" 
1268 INPUTK 

1276 IFK>BOTHEN126@ 

1288 CA=CA+K¥PR 

1298 BO=BO-K 

1398 GOTO9SS 

1316 REM **% SELL ASTROLABES ** 


1329 IFAS<1THEN1189 
13390 PRINT"WE HAVE"AS"ASTROLABES WORTH"A 


C"DBLNS EACH" 
1349 PR=INT(AC¥RND(1)): IFPR<AC/2THEN134¢ 


13590 PRINT"ALL THE NATIVES OFFER IS"PR"E 
ACH" 


1355 PRINT"{RED} °7%*%* @*# #unnununnnuvnnununnnis 


Se i Eg a ina | 


1368 PRINT"{RVS ON}{YEL} HOW MANY D 
O YOU WANT TO SELL "3 

1374 PRINT * (RED) °° 9" @ eee we me em me ele ewan 
wwuwnuaneuuewer¥ERYS OFFICGY 33" 

1375 INPUTK 


13839 IFK>ASTHENLS75 
1399 CA=CA+tK¥PR 


1999 AS=AS-K 

1919 GOTO 959g 

1929 REM *%* SELL SALT ** 
14938 IFSA<1THEN1189 


19446 PRINT"WE HAVE"SA"SACKS OF SALT WORT 
H"CS"BDLNS EACH" 
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1459 PR=INT(CS¥RND(1)): IFPR<CS/2THEN1459 
144 PRINT"THE LOCALS’ BEST OFFER IS"PR" 
EACH" 

1465 PRINT (REDS Ore ere ee ener nek eee e 


a a a ie i a i ae 


1976 PRINT"{YEL3¢{RVS ON3 


O YOU WANT TO SELL "5 
1475 PRN eR ee EE Ne PE EEE NEE Le EE Ie 


HOW MANY D 


a Yb OFF 3}CI(GY a 


1489 
1999 
1596 
1519 
1529 
1536 


13549 
1558 


NS 
36D 


135768 


INPUTK 

IFK>SATHEN1I489 

CA=CAtK¥PR 

SA=SA-K 

GOTO9S9 

REM ** SELL IRON INGOTS ** 
IFIR< 1 THEN1189¢ 

PRINT"WE HAVE"IR" INGOTS WORTH"IC"D 


EACH" 


PR=INT (ICK#RND(1)):2:IFPR<IC/2THENI569 
PRINT"THE BEST OFFER FOR IRON IS"PR 


"EACH" 


13575 


PRINT "<< RED} 0 %4 Oe ee eee eee eee ae 


BT RE LE EN Ae 


1586 


PRINT" {RVS ONC YELS HOW MANY D 


O YOU WANT TO SELL 3 


1585 


PRENT © RED ee 8 ee Te 


NUNN F& PAIS OFFS {IGY i es 


1596 
1699 
1619 


1629 
1636 


1646 
1659 
1669 
BLNS 
1676 
1689 
NG a 

1685 


INPUTK 

IFK>IR THEN 1599 

CA=CAt+KXPR 

IR=IR-K 

GOTO9S39 

REM ** SELL GUNPOWDER ** 
IFGU< 1 THEN1189 

PRINT"WE HAVE"GU"BARRELS WORTH"GC"D 
EACH" 

PR=INT (GC#¥RND(1))°5 IFPR<GC/2THENI679 
PRINTPR"EACH IS ALL THEY ARE OFFERI 


PRINCE A REDS i oe SESE A EOE LE I EE 


MDE SS SER AO CRE EE AE CAE RE IE PEI EEE NS 


1699 


PRINT"{RVS ON} {YELL} HOW MANY D 


Q YOU WANT TO SELL "3 
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16995 PRINT" {RED} ¢ erred 
MHNHHUWNNHMee & RAYS OFF {GY 33" 


1796 
1716 
1726 


1736 
1742 
1756 
1769 
1779 


INPUTK 
IFK >GUTHEN1 796 


CA=CAt+KXPR 
GU=GU-K 
GOTO9S9 


REM ** SELL QUADRANTS ** 
IFQU< 1 THEN1189 


PRINT"WE HAVE"QGU" QUADRANTS WORTH"QC 


"DBLNS EACH" 


1789 PR=INT(Q@C¥RND(1)): IFPR¢@C/2THENI78¢ 
1799 PRINT"FOR QUADRANTS, THEY OFFER"PR" 
EACH” 

1795 PRINT"(CRED}(%¢7 tren nnnnnnnnnnanne 


ce SE Ma A A i a 


1869 PRINT"{RVS ON} {YELL} HOW MANY OD 


O YOU WANT TO SELL 2 

Peds (PRINT <REDI 7 eke Hone eee ere ne aE 
FARRER ROEM E RS OPP YUGY SF” 

1819 INPUTK 

1829 IFK>GUTHEN1819 

1838 CA=CA+KXPR 

1849 QU=QU-K 

1859 GOTO95a 

1869 REM ** BUY FROM NATIVES ¥* 

1879 GETBS: IFBS=""THEN187@ 

1889 PRINT"{GY 3}----------------------- 
1899 PRINTTAB(7)5">>YOQU HAVE"CA"DBLNS<<" 
:PRINT 

1895 PRINT" ----------------------------- 
----------- {GY 2)" 

199@ PRINT"THE NATIVES ARE OFFERING: ” 
191G BI=9+INT(RND(1)*7) 

192@ PRINTTAB(4)3"1 - FOOD AT"BI"DBLNS P 

ER SACK" 

1938 SL=39G+INT(RND(1)¥9) 

1949 PRINTTAB(4)3"2 - SLAVES AT"SL"DBLNS 
EACH" 

1959 PRINTTAB(4)3"3 - TO RETURN TO VOYAG 

EO 

1969 GETBS: IFBS=""THEN1 969 
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IFBS<"1"ORBS>"3" THEN1 969 


IFBS="3" THEN1I189 
IFBS="2" THEN2ZD7D 
PRINT"HOW MUCH FOOD DO YOU WANT" 


INPUTK 
IFK¥BI>CATHENPRINT" YOU DON’T HAVE E 


NOUGH MONEY" : GOTO29296 


2545 
2859 


FO=FO+K: CA=CA-BI*¥*K 
PRINT"{GY 33> TRANSACTION COMPLETE 


<"2;GOSUB3199: GOTO1S79 


2969 
2875 
2539 
2596 


GOTO199696 
PRINT"HOW MANY SLAVES DO YOU WANT" 


INPUTK 
IFK*#SL>CATHENPRINT" THAT IS BEYOND ¥Y 


OUR FINANCES": GOTO2989 


2166 
2119 


ME=ME+K 2 CA=CA-SL¥K 
PRINT" THEY’VE BEEN ADDED TO YOUR CR 


EW": GOSUB31996: GOTO137¢ 


—_— = ew om oe 


REMKXKKHKKKKKKKKEKEKKEKKEE 
REM DEATH FROM SCURVY 


PRINT" DUE TO A LACK OF FRESH FOOD" 


PRINT"SCURVY HAS HIT YOUR SHIP..." 
GOSUB3199 


K=ME/3!:K=INT (RND(1)*¥K+1) 
PRINTK"MEN HAVE DIED" 


GOSUB3199 

ME=ME-K 

RETURN 
REMEHEKHEKKEKHKHKKKKKHKEKEKEKEE 


REM SHIPWRECK 

PRINT” YOUR SHIP IS FOUNDERING IN HE 
PRINT"SEAS...YOQU ARE IN PERIL...... 
GOSUB3199¢ 


IFRND(1)>.8THEN2376 
PRINTSPRINT"THE STORM IS PASSING... 
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2298 
2585 


PRINT”"BUT SOME OF YOUR GOODS AND" 
PRINT"MEN WERE SWEPT OVERBOARD...” 


2318 ME=S*XINT (ME/4) : BO=5S*¥ INT (BO/6) 

2320 AS=7*XINT(AS/8) !SA=3¥INT (SA/4) 

2338 IR=4*INT(IR/5) : GU=S*INT (GU/6) 

2349 GQU=7XINT (QU/2) 

2358 GOSUB3199 

2368 RETURN 

2378 PRINT:PRINT"A MIGHTY WAVE SWAMPS YO 
UR SHIP” 

238G PRINT"AND IT GOES DOWN TO THE BOTTO 
me 

2396 GOSUB3199 

2498 GOTO79E 

241G REM KH KH HHH II 

2429 REM MUTINY 

2421 PRINT"----------------------------- 
me eee me me me em ee we ee ee we "5 

2439 PRINT"THE MEN ARE UNHAPPY WITH YOUR 
2449 PRINT"LEADERSHIP, THERE IS TALK OF” 
2459 PRINTTAB(12)3"A MUTINY..." 

2468 GOSUB3199 

2479 IFRND(1) >.8THEN2549 

2489 PRINT"BUT YOU TAKE CONTROL, HANG” 
2494 PRINT"TWO OF YOUR CREW TO TEACH" 
2599 PRINT"THE OTHERS A LESSON, AND" 
2519 PRINT"CONTINUE WITH THE VOYAGE" 
2528 GOSUB3199 

2539 RETURN 

2549 PRINT"IT WAS SUCCESSFUL...AND YOU" 
2559 PRINT"ARE PUT TO SEA IN A SMALL" 
2568 PRINT"BOAT...THIS IS THE END" 

2579 GOSUB3199 

2589 GOTO7e8a 

Z5PD REMKXHKH KKH HHH KKK EHH 

2689 REM PIRATES 

2681 PRINT"----~------------------------ 
ee "5 

2619 PRINT"A MEAN-LOOKING PIRATE SHIP" 
2629 PRINT"IS SIGHTED OFF TO STARBOARD" 
2638 GOSUB319¢ 

2649 PRINT"IT COMES UP ALONGSIDE” 
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2698 
2669 
26768 
2689 
2698 


27 5D 
° Ss" 
2716 


2/726 
27368 


27496 


27598 
AND 


2/7668 
2776 


2/736 


2798 
23965 


2319 
2326 


3368 
345 


‘283568 
28608 


2876 
23389 
289C 
29G8B 
2916 
2928 
2936 
2945 


2936 
29°6D 


CLOTH 


2976 


GOSUB3199 

T=INT (RND (1) #3) 

IF T=9THEN2749 

IFT=1THEN282¢ 

PRINT" YQU OFFER TQ BUY YOUR FREEDOM 


PRINT" THEY AGREE, TAKE YOUR DUBLOON 


PRINT"AND YOUR GUNPOWDER....” 
CA=9: GU=9 
RETURN 


PRINT"THE SAVAGE PIRATES BOARD THE" 
PRINT"SHIP - KILLING MEN LEFT,RIGHT 
CENTRE” 

K=INT (RND (1) *#ME+ME/ 3) 

GOSUB3199 

PRINTK"HAVE BEEN KILLED IN ALL” 
ME=ME-K 

GOSUB3199 

RETURN 

PRINT"LUCKY YOU...THEY HAVE RUN" 


PRINTTAB(8) $3 "AGROUND!!!}!" 
GOSUB3199 


RETURN 

REMIX HHH HHH HHH HHI 
REM INITIALISATION 

PRINT" <{CLR}" 

REM 

DIMAS (9) 
ME=1996+ INT (RND(1)%¥39) 
CA=29G+ INT (RND (1) ¥59) 
FO=19@G+INT(RND(1) #39) 
FE=.@62+INT(RND(1)¥19)/196 
IFFO/ (FEXME) 011 THEN29196 
BO=196@+INT(RND(1)¥30):REM BOLTS OF 


BC=S+tINT (RND(1)%*5) °>REM VALUE OF EAC 


H BOLT OF CLOTH 


29380 
299D 


AS=1S5+tINT(RND(1) #5) >REM ASTROLABES 
AC=246+INT(RND(1)%5) °>REM VALUE OF EA 


CH ASTROLABE 


3GGD 
LT 


SA=S6H+tINT (RND(1)%7) °REM SACKS OF SA 
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3919 
T 

S3B28 
oom 


39408 
39359 
3968 


3875 
398G 


SAID 
31908 


3116 
3126 
3136 
3149 


3159 
3169 


2165 
3176 
31386 


3199 
3298 


3210 


3226 
3238 
324998 
3256 


CS=7+ INT (RND(1)*4) >REM VALUE OF SAL 


IR=S9+INT(RND(1)+8) 2:REM IRON INGOTS 
IC=5+INT(RND(1)*¥3) :REM VALUE OF SAL 


GU=3+ INT (RND(1)*2) 
GC=99+ INT (RND(1)*¥29) 
QU=19+ INT (RND(1)*4) 
QC=3G+ INT (RND(1)*6) 
WE=9 

PT=1 

SC=G 

SH=G 

MU=9 

PI=9 

FORJ=2T0O9 


READAS (J) 
NEXTJ 


POKES3281,6:POKES3289, 2 

RETURN 

RE MEKKKHKKKKKKKKKKKKKHKHKE 

REM DELAY 

REM 

FORP=1TO15969:NEXTP 

RETURN 

RE MEXKKHKKEKHKKEKEKKEKKEKKEKEKEE 

REM DATA 

DATA" THE CANARY ISLANDS", "THE CAPE 


VERDE ISLANDS", "CAPE ST AUGUSTINE" 


3269 DATA"RIO DEJANEIRO", "THE SANTA CRUZ 
RIVER" 
3276 DATA"TIERRA DEL FUEGO", "THE ISLAND 


OF MACTAN", "{RVS OGN}{YEL} THE PORT OF SPA 
IN¢RVS OFF3" 


READY. 
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DISASTER FLIGHT 


Here's your chance to fly a plane, with a complex and 
fairly realistic flight simulator program. 


Russia has planted a nuclear device somewhere in_ the 
United States. The. president has called an emergency 
meeting with the country's top five nuclear physicists. 


You are the president's private pilot, and you've been 
assigned to find, pick up and deliver the five 
scientists to New York, where the president is waiting. 
However, to do this you have to cover every inch of the 
country in order to find them. 


If you decide to fly below 1000 feet, then you run_ the 
risk of hitting a mountain. You are able to go around, 
or over a mountain, but if you take toc long to decide 
what to do, you'LL fly straight into it. 


As you fly around the country, you'Ll see the current 
State that you're over is shown in the top Left hand 
corner of the screen in purple. If you pass over a State 
which contains a scientist, then the name of the State 
will be shown in white. Each State is shown as one or 
more five by five squares. As some States are’ Larger 
than others, you'LL see these represented by two or more 
of the groups of squares. 


FLYING YOUR PLANE 


This is not so easy. ALL the instruments you see on the 
screen have their own uses. You'll find that by 
operating more than one instrument at a time, you'll be 
able to fly the aircraft more smoothly, and find certain 
States more easily. 
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THE ELEVATOR 


The elevator shows the position of your plane's nose: 


A - if the elevator is above the central 
position, then the nose is pointing upwards 


B- if the elevator is in the central 
position, then the plane is flying horizontally 


C -— If the elevator is below the central 
position, then the nose is pointing downwards. 


TAKING OFF 


When preparing to take off, you must set the elevator 
below the central position. After your airspeed exceeds 
360, move the elevator to the central position, and the 
plane will Lift off. 


If you're trying to take off, and your airspeed is Less 
than 360, and/or you don't have the elevator in the 
correct position, you'll stall the airplane and it will 
crash. 


YOUR AIRSPEED 


A - if your airspeed is equal to 500, and the 
elevator is set in the central position, your 
plane will lose altitude. THIS IS THE ONLY WAY 
YOU CAN LAND THE PLANE. 


B - if your airspeed is 500, and the elevator 
is set above the central position, then your 
altitude will remain steady 


C - if the elevator is in the central 


position, and airspeed is above 500, you will 
Stay on the same Level 
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D- if the elevator is above the central 
position, and speed is greater than 500, then 
you will climb 


E- if the elevator is below the central 
position, you'll Lose altitude. If you try to 


Land with the elevator in this position you 
will crash. You can only Land as in (A) 


THROTTLE 


The throttle has five different positions, which 
determine how fast you will fly. | 


Throttle position: Maximum speed achieved: 


i 50 
2 200 
3 900 
4 1000 
9 2000 


When taking off, the trottle must be in either position 
3, 4 or 5 as you must be going faster than 360 in order 
to leave the ground. The throttle must be in position 5 
when you're Landing. 


Pressing the 'fire' button on your joystick increases 
the throttle setting and airspeed. Pressing the space 
bar cuts the throttle setting, and slows you down. Note 
that if your speed falls below 200 when you're in the 
air, you will stall and crash the plane. | 


COMPASS 


The compass setting changes as you turn your craft. The 
Latitude and longitude settings change as you move 
around. (Note that Latitude measures your north/south 
orientation, and Longitude your east/west.) 
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If you fly off the north end of the map, you'll reappear 
at the south end (and at the north end if you fly off 
the south, the east if you fly off the west, and at the 
western end if you fly off the east end). 


PITCH AND ROLL 


This instrument shows the lean of the plane. It is 
modified by the way you turn your craft. 


UNDERCARRIAGE 


Press D to Lower the undercarriage 
Press U to raise it 


Once you've taken off, we suggest you raise your. under- 
Carriage fairly smartly. You must be below 150 feet 
before you'Ll be able to lower your undercarriage in 
order to Land. A red light is visible beside the 'U' 
when your undercarriage is up. It turns orange when the 
undercarriage is down. 


BRAKES 


You should apply the brakes as soon as you Land, or you 
will run out of runway. 


You should release the brakes, when you are ready to 
take off. A Light will appear in red beside the 'B' on 
your panel when the brakes are applied, and this will 
turn orange when you release them. 
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MOUNTAIN 


You fly over or around a mountain to avoid it. You must 
do one of these things to prevent your plane flying head 
on into the mountain. You must be going faster than 500 
in order to get over the mountain, and the elevator 
should be above the central position. 


To go around the mountain peak, simply choose the side 
of the mountain you intend to go around. If the edge of 
the mountain reaches the end of the screen as _ you 
approach it, then you have successfully flown around it. 


The compass will not be altered when you fly around a 
mountain. 


TO TAKE OFF 


Here's the steps you must follow: 
1 — Move the throttle over the central position 
2 — Have the elevator set below the central position 
3 — Ensure the undercarriage is down 
4 —- Release the brakes 


5 — When your airspeed is greater than 360, move the 
elevator to the central position 


6 — Raise the undercarriage before the altitude 
reaches 200 feet 
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TO LAND 


The 
follows: 


Sequence of steps needed to land your plane is as 


1 — When the altitude is below 150, Lower the 


undercarriage 


2 — Set the throttle to the middle position, so that 


airspeed drops to 500 


3 — Put the elevator in the central position, so 


your altitude starts to drop (note that you will 
crash if your elevator is below the central 


position) 


4 — Engage the brakes once you've Landed 


5 —- Note that your engines will shut off 


automatically 


Happy flying, pilot. 


5S POKES4276, 9: POKE5S4283,9 

168 POKES4296, 9! POKES4278, 249: POKES4277,9 
» POKE54276, 129: POKE54273, 37 
20 POKES4284, 9: POKES4285, 249: POKES4283, 1 


7: POKES428g¢, 12 
3g GoTOSE¢ 
498 mos(i)=" 


ON} _ {RVS OFF? 
9196 MOS(2)=" 


_{RVS OFF} 
426 MOS(3)="{BRN} 
_{RVS OFF} 

43@ MOS(4)=" 

CRVS OFF} 

449 mMos{5)-=" 

_{RVS OFF} 

45@ MOS(6) =" 
_{RVS OFF3 


{WHT} {RVS 
{RVS ON}? 
{RVS ON}D 
CRVS ON} _ 
CRVS ON} 
CRVS OND 


466 
476 
4389 


499 
IIS 


595 
519 
5265 
539 
545 
559 
545 
5S7o 
53a 
5° 
65D 
619 
626 
63g 
64GB 
4659 
645 
678 
iT) 
B95 
GS 
91g 
92G 
93g 
94 
959 
969 
97 
98m 
994 
995 


MOS(7) =" CRVS ON}D 
_€RVS OFF} " 
MOos(S) =" CRVS ON}> 
_€RVS OFF} " 
MOS (9) =" {RVS ON}D 
_{RVS OFF} " 
RETURN 
REM *%% FLIGHT 5241 xx 
GOSUB49¢ 


REM SET ASIDE (AS) FOR COMMANDS 
REM (AL) FOR ALTITUDE 

REM (FU) FOR FUEL 

REM (LO) FOR LONGITUDE 

REM (LA) FOR LATITUDE 

REM (AS) FOR AIRSPEED 

REM (TI) FOR TIME ELAPSED 

REM (TD) FOR SET TIME 

REM (UC) FOR UNDER CARRIAGE 

REM (BR) FOR BRAKES 

REM (A) FOR A LOOP DELAY 

REM (CO) FOR COMPASS 

REM (HA) FOR DESTINATION 

REM (HO) FOR DESTINATION 

REM (EL) FOR ELEVATOR 

REM (ROS) FOR ROLL DRAWING 

REM (COS) FOR COMPASS DRAWING 

REM KEKKKKKKKHKKKETKEKKEEE 

RE MEKHEHE HEH HHHKKHEKEKEHKEKEHKKKHKEKEE 
REMX#SET UP VARIABLES & STRINGSX* 
RE MEKEEEHEHKHHEKEEKEKEKEKKEKEKKKHKKEKE 
COS( 1) ="{CYN3SCCCCECECT" 

COS (2)d="F7 {YELINICYN? i 


COS(3)="7 oe 

COS(9) ="JLVYELIW CREDIQ CYELSECCYN3 7" 
COS(5)="7 j" 

COS(6)="F7 {YVYELSS{CYN} j* 


COS (7) ="J@CCCCK" 
FORA=1TOS 
LA(CA)=INT (RND(1)*¥45) <LO(A) =INTCRND(1 


)*69) 
P96 LA=LA(A) :LO=LO(A) : GOSUB59999: DS(A) =P 


$: IFDS(A) =D$(A-1) THENS95 
997 DDS=LEFTS(D$(A),4):IFDDS="NEW "ORDDS 
="ATLA"ORDDS="GULF "THEN995 
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998 NEXT 

O99 LA=INT (RND(1)¥24) 

19666 LO=INT (RND(1)*49) 
1916 
9O9 

1G1il 
1926 


1946 
1639 


1969 


NEXT 

HO=INT (RND(1).-*¥690) 

CO=INT (RND(1)*#8) +1 

FU=4906 

AS=9.UC=1:BR=1 

1676 EL=2:AL=9: TH=G 

1989 ROS(1)="{CUR RTFCICUR RTFC(CUR 
R RTSICYN} VCCCECEC LI" 

1999 ROS(2)="{CUR RTF{CUR RTI{CUR 
R RTFS a ia 

1196 ROS(2)="{CUR RT}{CUR RTI{CUR 
R RTFJ a 

11196 ROS(4)="{CUR RT3{CUR RT}{CUR 
R RTF SCIORFCCCWHTIALTORFCCLCCYN: 7" 
11296 ROS(2)="{CUR RT3{CUR RT}{( CUR 
R RTF/7 a 

1139 RO#$(2)="{CUR RT}{CUR RT}{CUR 
R RTGJ qT? 

1146 ROS(7)="{CUR RT}{CUR RT}{CUR 
R RTF 7ECCECK" 

1159 


1169 
11796 


1189 
1196 
1296 
1216 
1229 
1236 


TD=INT(RND(1)¥5) +1 

IF TD=1 THENTDS="9998995" 
IFTD=2THENTDS= "991699" 
IFTD=3THENT D#=" 993299" 
IF TD=4THENTDS$= "996496" 
IFTD=5THENTDS$= "912899" 
TD=G 

TIS="G999Gg" 


GOSUBS9999: FORA=1TOS: IFPS$=D% (A) THEN 


RT?{CuU 


RTsicu 
RTs{Cu 
ee 
RT{Ccu 


RTs{Ccu 


RTs{Cu 


BS="GOGGBOGOBC(CUR L3{CUR L}{CUR L}”" 


12496 


DSB="{HOMEF (CUR 


CUR DNICCUR DN?{(CUR 
CUR DN3{CUR DN?}{CUR 
CUR DNF{CUR DN;-{CUR 
CUR DN3{CUR DN {CUR 


DN3 {CUR 
DN(CUR 


DN (CUR 
DN?{( CUR 
DNZ{ CUR 


DN3{ CUR 
DN{ CUR 


DN{CUR 
DN {CUR 
DNI{ CUR 


DN 
DN 


DNC 
DNi¢t 
DN?:”" 


12945 L®="{CUR 


+{ CUR 


7{ CUR 
+{ CUR 


+{( CUR 


RT?{ CUR 
RT>( CUR 
RT?{CUR 
RT{CUR 


RT}<( CUR 
RT3{ CUR 
RT3{CUR 
RT3{ CUR 
RT?{CUR 
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RT?{ CUR 
RTI{ CUR 
RT7¢( CUR 
RT?i CUR 
RT?{CUR 


RTs{( CUR 
RT{ CUR 
RT?{( CUR 
RT?{ CUR 
RT?{(CUR 


RT 
RT 
RT 
RT 
RT 


3{CUR RT3{CUR RTFICUR RT}{CUR RT 3{CUR RT 
*;{CUR RTFLCUR RTF{CUR RTFCCUR RTFCCUR RT 
7{CUR RT3{CUR RTF{CUR RTI {CUR RT}3{CUR RT 
{CUR RTF" 
125@ FUS="{RED}O77AP{CUR DN} {CUR L3C{CUR L 
*{CUR L3{CUR LISZCYELICRVS ONG {RVS OFF 3? 
CRED3’ {CUR DN3{CUR L3{CUR L3{CUR L3{CUR 
L}GZIRVS ONFCYEL} {RVS OFF}(CRED}’ (CUR DN 
3{CUR Li{CUR L3{CUR LI3{CUR LIZIRVS ONLY 
EL? {RVS OFFFCRED} "7 (CUR DNFCCUR LTCUR 
L3{CUR L3{CUR Li%ZIRVS ON {YELL} {RVS OFF 
{RED} "7 (CUR DN {CUR LICCUR Li{CUR Li{CUR 
L3ZtRVS ONS LYELL? {RVS OFFS CRED?’ " 
1269 FUS=FUS+"{CUR DN (CUR LCT CUR LitCUR 
L3{CUR L3{REDIL//:" 
1276 SCS="{GRNICRKVS ON? 
1286 ASSB="{REDI,7"""" "5 {CUR DNS CCUR Lit{C 
UR L3{CUR L3{CUR L3{CUR Lit{CUR L;3{CUR L3 
{CUR LI {RVS ON} /CCUR RTF ILCUR RTFTCUR RTF 
(CUR RTF{CUR RTZ{CUR RTIFC{RVS OFF /CTCUR D 
N3{€CUR L}£CUR L}{CUR LI{CUR LITCUR L;tCU 
R L3{CUR L3ICUR LEC{RVS ONS7" "7" ""{RVS OF 
rar 
13966 SC=19624: CL=55296 
1316 THSB="{RED}O077PO0/77PC( CUR DN CCUR LitCc 
UR L3{CUR L3{CUR L}{CUR L3{CUR L3{CUR L} 


{CUR L3#{RVS ON CYEL3/ {RVS OFFs{RED 
*¥{CUR DN3{CUR L3{CUR L}3{CUR L}3{CUR LC 


UR L3CCUR L3{CUR LiTCUR LiZL//:L//2tCUR D 
N3{CUR L3{CUR L} {CUR L}{CUR L3{CUR L?{CU 
R L}{CUR L} {CUR Li C(OR} THROTTLE” 

LSGD REM KHEKHKHKKHK HEHEHE KKK KKH 


15190 REM *XX#X#FXXSET UP SCREENKKXKKKE 
LS2Z2G REM KKHKKKHHKKKKHKKKEK HH HK HHH HHH IE 


1530 PRINT"{CLR}CHOMES"5 ;-FORA=1TO?S:2 PRINT 
RWS (A) 5 2 NEXT 

1546 POKES3281,6: POKES32869, 9 

1550 PRINTRWS(2)3; °>PRINTRWS (3) 

15698 PRINT 

1576 GOSUB9159 

1696 PRINTLEFTS(D%$,13)FUS°PRINT"{RVS OFF 
7;{PURSELEV" 

16196 PRINTLEFTS(D%,13) "{CUR RT3{(CUR RT3¢E 
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CUR RTFCCUR RTIC{CUR RTPCCUR RTZICUR RT3¢ 
CUR RTF3{CUR RTF{CUR RT3{CUR RT3"FUS3 2: PRI 
NT"{CUR DNF CCUR LIC{CUR L3{CUR L?{CUR Lit 
RVS OFF} {PUR}FUEL" 
1646 GOTO1?719 
1659 PRINTLEFTS (DS, 11) 
16690 GOSUBSISS 
1676 ZS=LEFTS(LS, 39) 
673 PRINTZS$COS(1) SPRINTZS$COS(2) ©PRINTZS 
O$ (3) : PRINTZ$COS (4) ! PRINTZ$COS (5) 
164896 PRINTZSCOS (6) ;PRINTZSCOS (7) 
1699 RETURN 
17196 PRINTLEFTS(D%,13)26"{CUR L}{CUR L3¢ 
CUR L3{CUR Lt CUR L3f{CUR L3(CUR L3{CUR L 
{CUR L3{CUR L3{CUR L3 {CUR L3{CUR LI {WHT 
SLCIORSWICUR RT?C CUR RTFCCUR RTFCCUR RTC 
CUR RT3{(CUR RT}{CUR RT3{CUR RTZ{CUR RT FW 
CWHT 3S" 
1729 PRINTLEFT#(D%$,21)" €LT GRN}SPEED 
ALT." 
1739 PRINTLEFTS (DS, 20) LEFTS(L&S, 39) "{ WHT} 
COMPASS" 
1749 PRINTLEFTS(DS,19)LEFTS(L&, 27) "{ WHT} 
UICUR RTF{CUR RTFCCUR RTFCCUR RTF CCUR RT 
${TCUR RTFCICUR RT3 {CUR RT3{CUR RTF{CUR RT 
+{CUR RT?3B" 
17568 POKE1772,87: POKES6944,8 
17696 POKE17832,81:POKES6954, 2 
1776 PRINTLEFTS$ (DS, 15)SPC(17) THS 
1876 PRINTLEFTS$ (DS, 249) SPC (26) "(WHT LONG 
LAT." 
18896 GOSUB129699 
1899 GOSUB165¢6 


1996 RWS(1)="{RVS ON? (GRN> 
{BLK 3 { GRN}> ‘ 


1916 RWS(2)="{RVS ON? (GRN; 


{BLK} {GRN > . 
19290 RWS(2)="{RVS ONS CGRN? 

{BLK } {GRN> 7 
1938 RWS(3)="{RVS ON CGRN3 

{BLK 3 {GRN> ‘ 


19490 RWS(4)="{RVS ON CGRN3 
{BLK} {GRN > . 
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1956 RWS(5)="{RVS ON CGRN} { 


BLK} {GRN} " 
1969 RWS(6)="{RVS ON} {GRN} {B 
LK} {GRN} 
1976 RWS(7)="{RVS ON} {GRN} {BL 
K 3 | {GRN} " 
1989 RWS(8)="{RVS ON} {GRN} {BLK 
3 {GRN} " 
199G RWS(9)="{RVS ON} {GRN} {BLK} 
{GRN} : 


2698 LNS="{WHT}’7%{CUR DN}{CUR L3{CUR L} 
{CUR DN}{CUR L3{CUR L}’°%{CUR DN} {CUR L} 
{CUR L} {CUR DN3{CUR L3{CUR L}’%{CUR DN 
{CUR L3{CUR L} {CUR DN}{CUR L}{CUR L?’ 

%(CUR DN}{CUR L}{CUR L} {CUR DN3{CUR L} 
{CUR L3’7%" 

2985 LNS(1)="{WHT} {CUR DN}{CUR L}3{CUR 

L3’%{CUR DN}{CUR L}{CUR L} {CUR DN3<{CUR 
L3{CUR L3’%{CUR DN3{CUR L3{CUR L3 {CUR 
DN} {CUR L}{CUR L}’%{CUR DN}{CUR L3{CUR 

L} {CUR DN}{CUR L}{CUR L}’°%{CUR DN}{CUR 
L3}{CUR L} " 

2618 PRINT" {HOME}"3 : FORA=1TO9:PRINTRWS(A 
)32NEXT 

2628 PRINT: PRINT" {HOME3 "SPC (18) LNS 

2658 PRINT"{CUR UP}{RVS ON} {RED} 

3 

2966 PRINTLEFTS(D&, 13) LEFT#(L%, 39) "{RVS 

OFF3{CYN}37 J": GOTOSgaEg 

SIGA REM KKKKKHHHHK KKK KHKKKS 

3919 REM *% MAIN ROUTINE ** 

SILA REM KKXKKHHWHHHKKKKKKKKH 

3838 GOSUBSHSS8: GOSUBS5aq 

3G4@ GETAS: IFAS="  "THENTH=TH-.5! GOSUB1GE 

a1) 

325@ REM *% CHECK FOR UNDER CARRIAGE ** 

3G6G IFAS< > "U" ANDAS< >" D" THENS199 

3978 IFUC=1ANDAS="U" THENUC=9: POKE1772, 81 
°POKES6944,2 

3888 IFUC=@ANDAS="D" THENUC=1 : POKE1772, 87 
*POKES6944,8 

3898 GOoTO3see 

3198 REM *%* CHECK FOR BRAKES x** 

3118 IFAS< >"B"THEN3S149 
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3129 


IF BR=1 THENBR=9: POKE1782, 87: POKES695 


4,3: G0TO39099 


3136 
314G 
32008 
3216 
V2268 


BR=1:POQKE1782, 81: POKES6954, 2 
IFAS="T" THENTH=TH-.5: GOSUBI1999S 

REM *% DECREASE FUEL ETC ** 

IFCO=1 THENLA=LA-INT (AS/S599) 
IFCO=2THENLA=LA-INT (AS/566) /2:LO0=LO0 


+INT (AS/S599)/2 


32369 
32496 


IFCO=3THENLO=LOtINT (AS/599) 
IFCO=4THENLA=LAtINT (AS/599) /2:L0=LO0 


+INT (AS/5998)/2 


3256 
3269 


IFCO=STHENLA=LAtINT (AS/3590) 
IFCO=46THENLA=LAtINT (AS/5969G) /2:L0=LO0 


-INT (AS/599) /2 


3276 
3289 


IFCO=7 THENLO=LO-INT (AS/S506) 
IFCO=8THENLA=LA—- INT (AS/S599) /2,:L0=LO0 


-INT (AS/S5986) /2 


32Ph 
33908 


3319 
2320 


3330 
3350 


3369 
49GOBS 


491¢ 


IF LA<S@THENLA=45 

IF LO<STHENLO=69 
IFLA>4S5THENLA=6 
IFLO>69THENLO=9 
LA=INT (LA) ;LO=INT (LO) 
FU=FU-INT(AS/125) 
GOSUBS99S 

REM *% FUEL LINE ** 


IFFU< =4999ANDFU>SSSSTHENFUS(1)="{RV 


S ONS{YEL}77{RVS OFF}" 


49295 


IFFUC S9S1LANDFUSSSSSTHENFUS(1)="C{RVS 


ONS{YELSS8St{RVS OFF" 


49365 
} Cr ae) | 
49460 
199" 
4939 
} i} | 
4969 
} n 
4676 


IFFU<C S8G1ANDFUSS/SSTHENFUS (1) ="CYEL 


IFFUC SYSLANDFUSS69OS6THENFUS(1)="{YEL 


IFFU< S691 ANDFUSSSOSGTHENFUS(1)="{YEL 


IFFUSSSPGLANDFUXS S466 THENFUS(1)="{YEL 


IFFUC =S49 1 ANDFU>SS3S99THENFUS (2) ="{RV 


S ON {YELS77C(RVS OFFS" 


4939 


IFFU<K S3SG1LANDFUSS299THENFUS (2) ="{RVS 


ONS CYELISSt(RVS OFF" 


4598 


ee 


IFFUC S291 ANDFUCSISGSTHENFUS (2) ="{YEL 
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41906 
+979" 
411G 
} " 
4129 


3 
413g 


IFFU< SI M1 ANDFU>3SSEGSTHENFUS (2) ="{YEL 
IFFU< SSB 1IANDFUS29SSOSTHENFUS (2) ="{YEL 


IFFUS2991 ANDFUS 28966THENFUS (2) ="{YEL 


IFFU< =289 1 ANDFUS2799THENFUS (3) ="{RV 


S ON}{YEL}/77{(RVS OFFS" 


4146 


IFFUC 2761. ANDFU>2699THENFUS (3) ="{RVS 


ON} {YELP ESC RVS OFF" 


4150 


[ead 
4169 
1979" 
4179 
} " 
4139 
} " 
4199 


IFFU< 2691 ANDFUS>2S99THENFUS (3) ="{YEL 


IFFU< 2591 ANDFU>2496THENFUS (3) ="{YEL 


IFFUS 2491 ANDFU>2399THENFUS (3) =" YEL 


IFFUC2Z3SGLANDFU<S 2299 THENFUS (3) ="{YEL 


IFFU< =2291ANDFUS2ZISSTHENFUS (94) ="{RV 


S ONC YELF77C(RVS OFFS" 


4208 


IFFUS 21961 ANDFU>299SOTHENFUS (9) ="CRVS 


ON} {YEL+EStRVS OFFS" 


9219 


Sais 


4226 
179" 
4230 
} " 
4246 
} " 
$250 


IFFUC< 2991. ANDFU? 1LESSTHENFUS (9) ="fYEL 


IFFU< 19S1ANDFU>ISSSTHENFUS (9) ="{YEL 


IFFU< 1891 ANDFUP1LYSSTHENFUS (94) =" VEL 


IFFUSIPSOIANDFUK 169696 THENFUS (5) =" VYEL 


IFFU<=1661ANDFU> 1 SO9THENFUS (5) ="{RV 


S ON} {YEL37/7C(RVS OFF?" 


4265 


IFFU< LSG1ANDFU?14I9696THENFUS (35) ="{RVS 


ON} CYELFESEC(RVS OFF?" 


4276 
pawn 
4239 
} n 
42°96 
} " 
4291 
4295 
439068 
4316 


IFFUS 1991 ANDFU> 1 S9SOTHENFUS (5) ="{YEL 
IFFUC 1261 ANDFU?1LISGSTHENFUS (5) ="{YEL 
IFFUCIISBIANDFUX 1SSS6THENFUS (5) ="{YEL 
GOSUBSS399 

IFOT=1ANDAL<S STHENS9S99G 


IF BR=1THENS469 
AS=AS+ (TH¥19) 
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43295 
433g 
434g 
4359 
436G 
4499 
4495 
441 
442g 
4425 
443g 


4459 
$455 


4469 
4461 
4465 


GIGS 
4476 


4439 


IF TH=> 1LANDTH< 2ZANDAS > 1 STHENAS=HS59 

IF TH=>2ANDTH< 3ANDAS > 7STHENAS=299 

IF TH=>3ANDTH< 4ANDAS > 2698 THENAS=3596 
IF TH=?74ANDTH< SANDAS > S96STHENAS=19996 
IF TH=>SANDTH< 6GANDAS > 1L2G6STHENAS=29996 
IFAL=GANDOT=1 THEN3999D 
IFAL=6THEN4459 
IFEL=3THENAL=AL-INT (AS/29) 
ITFEL=1THENAL=ALtINT (AS/1@) 

IFAL > 1LSOSSSTHENAL=19969 

IFAL >SANDAS< SSSTHENAL=AL-INT (AS/196) 


IFOT=1ANDAL<SSTHENSS9I9DG 
IFAL< >G@ORAS=9THENSSOg 


IFOT=GANDUC=STHENFSS99D 
RU=RU+ (AS/19) 
IFAL=SANDOT=GANDAS >? 1SGANDEL< >3THEN4Y 


IFRU>696THEN4SS9EG 
PRINT" CHOME? "SPC (18) LN: FORA=1TO49696 


-AS: NEXT: PRINT" C(HOME} "SPC (18) LNS(1) 


4496 
43995 


4316 
435269 


3GIS 
II1G 


IHL 
VH2S5 


VWOSE 


GOSUBS996 

IFAL >STHENSSOS 
GOSUB/YS695D 

GOTO0431¢ 

REM HKEEKKKKKKKEKKKEKKKKEEK 
REM ** SET UP SCREEN ** 
REM KEKKKKKKKHEKKEKHEKKKEEE 
GOSUBSSSH 


PRINTLEFTS(D%, 14) SPC (12) FU%$(1)"{CUR 


DN} (CUR L}{CUR Li "FUS(2)"C€{CUR DNSCCUR L 


3{ CUR 


L3"FUS(3) "{CUR DN} {CUR L3{CUR L3"F 


US(4) "C€CUR DN {CUR LI{CUR Li"FUS(5S) 


3OS3S 
pad oa) 


IFOT=9THENS97S 
PRINT" CHOME3 (PUR? "S 


GOSUBS 989g 


vend 7 brat 4] 
IGhO 


VO7 RB 


6995S 
691G 


6930 


FORA=1TOS: IFPS=D%S$(A) THENPRINT" {WHT 3 
NEXT 


PRINT" CHOME 
GOSUB?7 S699 
GOSUB? 6960 
IFAL >GANDAL< 1SGGANDMOK LANDRND(1)>.7 


"SPS 5 


3 THENGOSUB2 99995 


6951 


IFMO>=1 THENGOSUB2L SIGS 
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69005 
6916 
5926 
6998 
7 BOB 


7O16G 
7826 


7838 
CUR 


CUR 
CUR 


CUR 


IFAS“ 296GANDOT=1THENCR=1:GOTO4¢6996 
IFFUC =19SGTHENS SORE 
IFAL > 269ANDUC=1 THENSS9GS 


GOTO3962 


REM KEKEKEKHHEKHHHHKKKKEKEEKHEEE 
REM *X* AIRSPEED & ALTINATOR ** 
REM KHEKKKKKHKKHHHKHKKKKEKKKEKKKKEH 


DS&=" {HOME (CUR 
DNI{CUR DNF{CUR 
DN3C{CUR DNF {CUR 
DNF(TCUR DNFTCUR 
DNF{CUR DNTCUR 


DN> {CUR 
DN {CUR 
DN? {CUR 
DNS{ CUR 
DN{CUR 


DN{CUR 
DN {CUR 
DN? {CUR 
DN3{ CUR 
DN{CUR 


DNF 
DN ¢ 
DNGit 
DNF 
DNC 


CUR 


DN3{CUR DN" 


7638 PRINT" CHOMES (CUR 


+C CUR DNStTCUR 
{CUR DN {CUR 
{CUR DN} {CUR 
s{CUR DN3{ CUR 


DN (CUR 
DN{ CUR 
DN>{(CUR 
DN{ CUR 


7679OG PRINT" CHOMEs (CUR 


+{CUR 
7{CUR 
s{CUR 


7 {CUR 
s{RVS 


DN? (CUR 


DNC CUR 


DNS{ CUR DN} {CUR 


DN>¢( CUR 


DN {CUR DN {CUR 


DN; {CUR 


71966 PRINT" CHOME>s; {CUR 


{CUR DN {CUR 
+{CUR DN?{ CUR 


3{CUR DN3{CUR DN3{CUR 


+{CUR DN{( CUR 


DN {CUR 
DN (CUR 


DN? {CUR 


DNF {CUR 
DN{ CUR 
DN{ CUR 
DN{ CUR 
DN} "ASS 
DN{ CUR 
DN} {CUR 
DN {CUR 
DNI{ CUR 
DN?T CUR 


ONS{LT BLUISBBGGG" 


DN? (CUR 
DNFTCUR 
DN?{CUR 
DN? {CUR 
DNTCUR 


+" TAB(7-LEN(STR#S(AS))) AS 
7156 PRINT" CHOME?; (CUR 


{CUR DN {CUR 
*}{CUR DN FICUR 
s3{CUR DN {CUR 
+{CUR DN?{CUR 


DN{ CUR 
DN? (CUR 
DNF{CUR 
DN} (CUR 


71698 PRINT" {HOME} {CUR 


+{CUR DNFCCUR 
{CUR DN}3{CUR 


7{CUR DN(CUR 
${CUR DN} {CUR 
Y"C{RVS ONG ILT 


DN {CUR 
DN3{CUR 


DNC CUR 
DN; {CUR 


DN+({CUR 
DN3 {CUR 
DN (CUR 
DN} {CUR 


DN3iCUR 
DN;{( CUR 
DN3i{ CUR 


DN} {CUR 


DN}{ CUR 
DNI{CUR 
DN {CUR 
DN3{ CUR 
DN?{ CUR 


DN;{(CUR 
DN{CUR 
DN} {CUR 
DN {CUR 
DN CIRVS 


DN?{ CUR 
DN3{ CUR 
DN? (CUR 
DN {CUR 


DN "SPC (9) ASS 


DNi CUR 
DN; {CUR 
DNF{( CUR 
DN {CUR 
DN{ CUR 


BLU GSISGBG" 
7178 PRINT" {HOME}{CUR DN}{CUR 


*+{CUR DNFCCUR DN-S(tCUR DN{TCUR 
7{CUR DN}3{CUR DN}3}{CUR DN3{CUR 
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DN{ CUR 
DN;{(CUR 
DN {CUR 


DN? (CUR 


DI 
DN 
DN 
DN 


DN 
DN 
DN 
DN 
RT 


DN 
DN 
DN 
DN 
ON 


DN 
DN 
DN 
DIN 


DN 
DN 
DN 


DN 


DN "SPC (19 


DN StTCUR 
DN} {CUR 
DN3{CUR 


DN 
DN 
DN 


ite R DN3SC{CUR DNI{CUR DN; CCUR 
R DNICCUR DN3}{CUR DN3<{CUR 


3"TAB(C16-LEN(STRS(AL) )) AL 

71896 PRINT" {HOME}{CUR DN}{(CUR 
+{CUR DN3TCUR DNC{CUR DN?{(CUR 
(CUR DN {CUR DN} {CUR DN3{CUR 
{CUR DN}{CUR DNC(CUR DN (CUR 
{CUR DN} {CUR DN3{CUR DN3{CUR 
+" TABC146-LEN(STRS(AL))) "SG" 


71990 PRINT" {HOME} {CUR 
*+{ CUR DNF{CUR DN (CUR 
3;{CUR DN3{CUR DN3{CUR 
7{CUR DN3CCUR DN;-C{CUR 
7;{CUR DN3{CUR DN {CUR 


DN{ CUR 
DN}{( CUR 
DN?{CUR 
DN3{CUR 
DN {CUR 


>" TAB(7-LEN(STRS(AS))) "SG" 


7359890 RETURN 


DN{ CUR 
DNS{RVS 


DN {CUR 
DN;{ CUR 
DN {CUR 
DN {CUR 
DNCRVS 


DN3{CUR 
DN3tTCUR 
DN3{ CUR 
DN; (CUR 
DNSIRVS 


ZODD REM KHEKKHKKKHKKKKKEKKKHKKKE 
7619 REM ** LONG & LATITUDE *%* 
PE2ZG REM KHEKKKKKKKKKKEKKKKHKKEHEN 


765998 PRINT" {HOMES (CUR DNC(CUR 
3${CUR DN {CUR DN3{CUR DN3{CUR 
{CUR DN}{CUR DN {CUR DN {CUR 
{CUR DN3{CUR DN}{CUR DN}{CUR 


{CUR DN3{CUR DN "SPC (249) ASS 


7669 PRINT" {HOME} (CUR 
7{CUR DNFITCUR DN TCUR 
+{CUR DN}{CUR DN}3{CUR 
{CUR DNSCCUR DN-{CUR 
{CUR DN {CUR DN3{CUR 
N3{LT BLUIGIGGGGS" 

7679 PRINT" C€HOME3 {CUR 
7{CUR DN3{CUR DN;-{(CUR 
3{CUR DN {CUR DN} {CUR 
*+{CUR DN-CCUR DN CTCUR 
{CUR DN3{CUR DN} {CUR 
-LEN(STRS(LO)))LO 

7639 PRINT" {HOME} {CUR 
7{CUR DN FCCUR DN {CUR 
3,{CUR DN3{CUR DN3{CUR 
*+{CUR DNFCCUR DN C(CUR 


DN {CUR 


DN{CUR 
DN3{ CUR 


DN?< CUR 


DN{CUR 
DN {CUR 
DN} {CUR 
DN {CUR 


DN( CUR 
DN} (CUR 
DN>{(CUR 
DNt( CUR 


DN 
ON 


DN 
DN 
DN 
DN 
ON 


DN 
DN 
DN 
DN 
ON 


DN 
DN 
DN 
DN 


DN 
DN 
DN 
DN 


DN3"SPC (25) "{RVS O 


DN>{CUR 
DN;{CUR 
DN {CUR 
DN} {CUR 
DNS{RVS 


DNSTCUR 
DN; {CUR 
DNS {CUR 
DN? {CUR 


s{CUR DNS{CUR DN? "SPC (32) ASS 


7699 PRINT" CHOME; (CUR DNF TCUR 
3{CUR DN3{CUR DN {CUR DN3{CUR 
{CUR DN?{CUR DN {CUR DN-CCUR 
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DNS {CUR 
DN>{CUR 
DN?i( CUR 
DN3{CUR 


DN 
DN 
DN 
DN 


ONS "SPC (31 


DN3${CUR 
DN{ CUR 
DN {CUR 
DN? (CUR 


DN (CUR 
DN {CUR 
DN {CUR 


DN 
DN 
DN 
DN 


DN 
DN 
DN 


3{CUR DN3{CUR DN} {CUR 
*{CUR DNF{CUR DN-{CUR 
NS{LT BLU BGIBBGH" 

7/906 PRINT" {HOMES {CUR 
{CUR DNI}CCUR DNCCUR 
3,{CUR DN3{CUR DN {CUR 


+{€CUR DN C{CUR DN{(CUR 
*{CUR DN}{CUR DN3{CUR 


-~LEN (STR#(LA)))LA 
7718 PRINT" {HOME3}<{CUR 
{CUR DN3{CUR DN}{CUR 
3{CUR DN3{CUR DN3{CUR 
}€CUR DN3}{CUR DN}{CUR 
3{CUR DN3{CUR DN}{CUR 
-LEN (STR#(LA))) "6" 
7728 PRINT" {HOME} {CUR 
{CUR DN}{CUR DN}<{CUR 
3{CUR DN}3{CUR DN}{CUR 
?€CUR DN}€CUR DN}{CUR 
{CUR DN} {CUR DN3{CUR 
-LEN(STR#(LO)))"@" 
7889 RETURN 

SaGeq 
891g 
8G2G 
SG3g 
884g 


S638 
SG6gG 
8976 
SH8aG 


19¢G 
OH 


8119 


8129 
8139 


S146 
Soo 


PIGS 
POG10G 
PG28 


PB23 
9O249 


JV=PEEK (36329) 
FR=JVAND16 


JV=15- (JVANDIS5) 
JS=JIV:iFB=FR 
JV=8:FR=9 


RETURN 


IFCO< 1 THENCO=8 
IFCO>STHENCO=1 


253 


DN3{CUR DNS{CUR DN 
DN} "SPC(33) "{RVS O 


DNF {CUR 
DN3{ CUR 
DN {CUR 
DN}¢{CUR 
DNStRVS 


DNS TCUR 
DN} {CUR 
DN {CUR 
DN>{CUR 
DNS{RVS 


DNF{CUR 
DN{ CUR 
DN;{( CUR 
DN3< CUR 
DNS{RVS 


REM HEHKKKHHKKEKKKHKKKKKE 
REM *% JOYSTICK INPUT xX** 
REM HEKKKKHKHKKKKKEKKKEKEKE 


DN3{ CUR 
DN {CUR 
DN} {CUR 
DN} {CUR 


DN 
DN 
DN 
DN 


ON? "SPC (39 


DN {CUR 
DN3{CUR 
DN3 {CUR 
DN? (CUR 


DN 
DN 
DN 
DN 


ONS "SPC(S9 


DN3{CUR 
DNC CUR 
DN?(CUR 
DN} {CUR 


DN 
DN 
DN 
DN 


ON} "SPC (31 


IFFB=9THENTH=TH+t.3: GOSUBISGSISDS 
IFIS=ZANDOT=GANDAS > 369ANDAL=STHEN1IS 


IF JS=2THENEL=EL-1: GOSUBI299@ 
IFIJS=1THENEL=EL+1:GOSUB12999 


IF JS=4ORIS=STHENGOSUB149696 
IFIS=GANDAL >STHENGOSUBP 159 


REM KEEKHKKKHHKKKKKKKHKKKKKKKEE 
REM ** COMPASS DIRECTIONS XX 
REM KEKKKEKHKKHKHKKHKKKKKKKEKKKE 


9G39 IFCO=1THENCOS(3)="7 {LT GRNI7{CYN} 
7 

9949 IFCO=2THENCOS(3)="7 {LT GRNIWECYN 

> J":COB(4)="JLYELIW CREDIG (YELFECCYN} 7 

9959 IFCO=3THENCOS(4)="7{YELIW CREDIQ{LT 

GRN}@CYELIECCYN} 7": COS(3)="7 J":CoOs 

(S)="7 z* 

9968 IFCO=4THENCOS(5)="7 {LT GRNIMCCYN 

y J":COS(4)="JLYEL}W (RED?@ (YEL}ECCYN} 7 

98976 IFCO=STHENCOS(5)="7 {LT GRN37{CYN} 
yn 

9989 IFCO=6THENCOS(5)="7 {LT GRNIAC{CYN3 

, Jh2COB8(4)="7(YELIW CREDIG CYELIECCYN} I 

999@ IFCO=7THENCOS(4)="7{YELIW{LT GRN3@{ 

RED}@ CYEL}EC(CYN}7":COS(3)="7 J":COs 

(S)="7 7" 

9198 IFCO=8THENCOS(3)="7 (LT GRNIA{CYN} 
J":COS(4)="7{YELIW CREDI@ CYELIECCYN}7 

9145 RETURN 

PLSH REM XXKKKKKHKKKEKHKHEK 

9169 REM *% PITCH & ROLL ¥% 

PL7D. REM XHKHKHKKKKKKHKKKKKKS 

918G IFJS=S8THEN939¢ 

9199 IFIS=4THEN935¢ 

9290 IFIS=GTHEN9499 

9219 PRINTLEFTS (DS, 11) 

9226 PRINTROS(1):PRINTROS(2) :PRINTROS(3) 

: PRINTROS (4) : PRINTROS (5) : PRINTROS (6) 

9239 PRINTROS(7) 

9248 GOSUB9EEE 

925@ RETURN 

939 RO®(2)="{CUR RTI{CUR RT{CUR RT3{CU 


R RTISCTORIMICYN? J"; ROS(4)="{CUR RTF 
CUR RT3{CUR RT3{CUR RT3}7 ({WHTIQ (CYNFI 


231 ROB(3)="{CUR RTF{CUR RT}{CUR RT3{CU 


R RT}J CORSAICYNG Dd 
7329 ROS(S5)="{CUR RTF{CUR RTI{(CUR RT3{CU 


R RTF7 {ORFMCCYN J" 
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933G ROS(6)="{CUR RT}{CUR RT}{CUR RT} {CU 
R RT37 CORIMCCYN3 7" 

934g GOTO921¢ 

9359 ROS(2)="{CUR RT}{CUR RTF{CUR RTF{CU 
R RT} CORIANICYN} 7" 2:ROS(4)="{CUR RT}E 
CUR RT3{CUR RT}{CUR RT3}7 {WHT3}Q {CYN}37 
936M ROS(3)="{CUR RT}{CUR RT} {CUR RT}3{CU 
R RT37 £CORINICYN}? 7" 

9378 RO(5)="{CUR RT}{(CUR RT}{CUR RT}{CU 
R RT}J CORINCCYN} 7" 

9389 ROS(6)="{CUR RT}I{CUR RT}{CUR RT}ICU 
R RT} ILORINICYN} 7" , 

9399 GOTO9219 

949G ROS(2)="{CUR RT}{(CUR RT}{CUR RT3{CU 
R RT3JI 7 

9419 ROB(3)="{CUR RT}C{CUR RTI{CUR RTF{CU 
R RT}7° 7" 

9426 ROSB(4)="{CUR RT}{(CUR RTI{CUR RTF{CU 
R RTITCORICCLWHTIACORI@@LCYNI7" 

943 ROS(5)="{CUR RT}(CUR RTF{(CUR RTI{CU 


R RTFJ Jj" 
7449 ROS(6)="{CUR RT}{CUR RT}{CUR RT3{CU 
R RTF/ Di 


945@ GOTO921¢ 

P5DD REM XXKHHHKHKKHKHKHHHHHK 

9519 REM ** SET CLOCK ** 

P52G REM HKKXHIHHKHHKHHHHHK 

95398 CL#(1)=RIGHTS(T1IS, 4) 

954@ IFLEFTS#(CL$(1),1)="9"THENCLS(1)=RIG 
HTS (TI, 3): GOTO95S469 

9550 CLS(2)=LEFTS#(CL$(1),2) :GOTO957G 
9568 CL4(2)=LEFTS(CL#(1),1) 

95708 CL#(3)=RIGHTS(TIS&, 2) 

9589 CL#(1)=RIGHT#(TI$,5) :CL#(4) =LEFTS#(C 
LS(1),1) 

9599 PRINT"{CUR UP}{WHT}" 

9699 PRINTLEFTS (DS, 13) LEFTS(L%, 18) CLS(4) 
"2"CLS(2)"2 "CLB(3) 

9418 RETURN 

LDAAGD REM KKH HK HIM IH HIE 

1991@ REM *% CHANGE DISPLAY: ¥x 

LDA2G REM KKKKKKKKKHHKKKK HHH 


255 


19G3G IFTH=>1ANDTH< 2THENTHS=" (REDS O77 P07 
7PXCUR DN3{€CUR L3{CUR L3} {CUR L}{CUR L3{C 
UR L}{CUR L}{CUR LI{CUR LI4{RVS ONS CYEL3 
J CRVS OFFS{REDIX{( CUR DN {CUR L3{CUR 
jie L3<{CUR L3{CUR L}C{CUR L3{CUR LCC 
R LOL//:L//e" 
196496 IFTH= >+2ANDTH< STHENTHS=" {RED} 077P0 
77PC{CUR DN CTCUR L}C{CUR L3{CUR L3{CUR Lit 
CUR L3{CUR L3 {CUR L3 {CUR L34{RVS ONG CYEL 
+ J {RVS OFF CRED3X{ CUR DNSCCUR L3{Ccu 
R L3{CUR L3{CUR L}3{CUR L3{CUR L3{CUR Li 
CUR L3L//ils/e" 
1969356 IFTH=>S3ANDTH< 4THENTHS=" (RED3}077707 
7P{CUR DNF {CUR L3S{CUR L{CUR LI{CUR Lit{C 
UR L3{CUR L3{CUR L3{CUR L34{RVS ON} {YEL3 
J {RVS OFF PCREDIXC CUR DN C(CUR L+{CUR 
LS{CUR L3{CUR L3{CUR L3{CUR L3{CUR LIC 
UR LIL//tlLs si" 
199698 IFTH=>4ANDTH< STHENTHS=" {RED3O077P0/7 
7ZP{CCUR DN} C{CUR LICCUR L3{CUR L3{CUR Lit{C 
UR L3f{CUR L3{CUR L3{CUR L3¥{RVS ON} {YELL} 
J {RVS OFFI REDS¥XC( CUR DNC CUR LFtTCUR 
L3{CUR L3{CUR L3{CUR L3{CUR L3{CUR L;{C 
UR L3L//islLi si" 
19676 IFTH=>SANDTH< 6THENTHS="{RED}O77P07 
7PXCCUR DN} {CUR LI{CUR L3TCUR L3CfCUR L;i{C 
UR L3{CUR L3{CUR L}{CUR L}4{RVS ON ZC YEL} 
J{RVS OFF CREDIX{CUR DNFTCUR LI {TCUR 
L3{CUR L3{CUR L3{CUR L3{CUR L3{CUR LSt{C 


YB LgL/sslsss” 
986 IFTH< 1 THENTHS="{RED3}O77PAO077PLCUR D 


N3{<CUR L}{CUR L}{CUR L3{CUR L3C{CUR L3{CU 
R L3{CUR L3{CUR L3}4{RVS ON} {YEL37 CR 
VS OFF} CRED}XC(CUR DN} {CUR L3{CUR L (CUR 

L3{CUR L3{CUR L3{CUR L3{CUR L3 {CUR Li3L// 
sL//s”" 

196699 IFTH>STHENTH=5 

19995 IFTH<@THENTH=9 

191996 PRINTLEFTS#(DS%, 15) SPC(17) THS 


191196 IFTH=>1ANDTH<S 2THENPOKES9296, 3 
191290 IFTH=>2ANDTH< STHENPOKES4296, 6 


1G1390 IFTH=>3ANDTH<S 4 THENPOKESS296, 7 
1691498 IFTH=>4ANDTH< STHENPOKES42964,12 
191598 IFTH=>SANDTH<S 6THENPOKESS296, 15 


11966 
129696 
12619 
12629 
12978 


12689 
12999 


RETURN 

REM KHXHKKKKKHKKKKKKE 

REM ** ELEVATOR ** 

REM KEKKKEKKKHKKKKKE 

IFEL< 1 THENEL=1 

IFEL >3THENEL=3 
IFEL=1THENELS(1)="{RVS ONGC YELs+CC" 


>ELS(2)="{RVS ONFCYEL} me 


121960 


"SELS(3)="{RVS ON CYELS 


IF EL=2THENEL#S(1)="{RVS ONS CVYEL> 
"SELS(2)="{RVS 


ONS {YEL}eCe" 


12116 


IFEL=S3THENELS(2)="{RVS ONS {YEL> ‘ 


SELS(3)="{RVS ONSCYELICEC" 


12126 


PRINTLEFT$S(D%$,15) "(CUR RTS"ELB(1) " 


{CUR DN3{CUR L} {CUR LI"ELB(2)"{CUR DNC 
UR L3{CUR L3"ELS(3) 


12136 
13988 
13916 
13622 
FF” 

13959 


RETURN 

REM *%* TAKE OFF ** 
AL=166:RU=G:0T=1:EL=2: GOSUB12999 
PRINT" {HOMES {CUR RT3{CUR RTSTAKE O 


PRINT" CHOME3 "35 >-FORA=1TOS:: PRINT" {RV 


S ON} {BLU 


13969 


13976 
14999 


149619 
149926 


14936 
14994G 


19499359 


FORAA=1TO266° NEXT: NEXT 

RETURN 

REM *%* TURNING ** 

IFTH< 1 THENRETURN 
IFBR=1ANDAL=9THENRETURN 
IFAL=STHENRETURN 

IFMO>=1THEN14976 
IFIS=4THENDI=DI+TH: IFDI>196THENCQ=C 


O-1:°:DI=9: GOSUB1659 


1496¢ 


IFIS=STHENDI=DI+tTH: IFDI>19THENCO=C 


O+1:DI=6: GOSUB1659 


14976 


1949975 
14989 


GOSUB?159 


IFMO< 1 THENRETURN 
IFIS=4ANDLEN (TUS) >OTHENTUS=TUS+"{C 


UR RT": GOTO149139 


1469S 
14199 
149116 


IFIS=4THENR=R+t1 
IFIS=8THENR=R-1 
IFR<=STHENR=9: TUS=TUS+"{ CUR Li" CIF 


LEN (TUS) =11 THENTUS=TUS+"{CUR RT3" 


149126 


IFR>1STHENR=16 
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1949139 
2EBBR 
2ABGB1G 
28G29 


29G25 


RETURN 

REM HHEHKHKHKKHKHKHKHHKHKHKHHKHKKE 
REM * ALTITUDE TOO LOW * 
REM KHEKHKHKKKHKKKKKEKKKKKKEE 


FS=LEFTS (PS, 4): IFFS="GULF "ORFS="AT 


LA" THEN21969 


2IGB3G 
298946 
6) +2 

29OB59 


2OG6G5 
2IGB?7HB 


2569380 
20898 


2G19GDG 
29116 


2G120 
298125 


26136 


{RVS ON}3> 


20149 
CRVS 


201356 
CRVS 


20169 


{RVS ON}D> 


26176 


VS ON}+> 


296189 


S ON}? 


2O19D8 


VS ON?> 


+ 
292566 


GOSUB9596:MO=mMOrl1 


IFMO=1 THENZX=AL: KL=9: R=INT (RND(1)¥ 


IFMO=2ANDAL >ZXTHENKL=KL+1 
IFMO=S3ANDAL >ZXTHENKL=KL+1 
IFMO=4ANDAL ?ZXTHENKL=KL+t1 


IFMO=SANDAL >ZXTHENKL=KL#41 
IF MO=G6ANDAL > ZX THENKL=KL+t1 


IFMO=7ANDAL >ZXATHENKL=KL#1 
IFMO=SANDAL >2XTHENKL=KL+1 


IFMO=SANDAL >ZXTHENKL=KL +1 
IFMO=2THENMO$(1)="{RVS ON}3{ BLK} 
IFMO=2THENMOS (3) ="{WHT} 
_{BRN}CRVS OFF3 
IFMO=3THENMOS (4) =" {WHT} 
ON}> _€BRNICRVS OFF} 
IFMO=4THENMOS (5) ="{WHT3 
ON}? _{€BRNICRVS OFF} 
IFMO=STHENMOS (6) =" {WHT} 
_{€BRN}CRVS OFF} 
IFMO=6THENMOS (7) =" {WHT 3 
_€BRNICRVS OFF} 
IFMO=7 THENMOS (8) ="{WHT3 
_€BRN}CRVS OFF} 


IFMO=-STHENMOS (9) =" (WHT 5 


PRINT" CHOMES"; >-FORA=1TOKLt1: PRINT" 


{RVS ONT BLK? 


"5 5 NEXT 
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tRV 


_t{RVS OFF? (BRN 


2IIBDS 


3 
263589 


29519 
29519 


203265 


PRINTTUS; : FORA=1TO9-KL: PRINTTAB(R) 


PRINTMOS (A) 5 

NEXT 

PRINT 5 
IFMO=9ANDKL=7ORMO=S9ANDLEN (TUS) >50R 


MO=9ANDROSTHENZ1699 


26325 
26330 
293549 
28695 
2199GH 
21916 
219629 


21G36G 
21649 


IFMO=9THENS S996 
IFR>S0ORLEN (TUS) SSTHEN2Z1999 

ZA=AL 

RETURN 

REM KKKKKKHKKKKKHKKHHKHKKEK 

REM ** PASSED MOUNTAIN ** 

REM KEKKKKEKHKKHKKKKKKRKKKEE 

MO=9 > KL=9: 2ZX=G:TUS="" 

PRINT" CHOME3"5 ;>FORA=1TO?: PRINT"{RV 


S ON}{ BLU? 


21965¢ 


21969 
21976 


35GIDSG 
39G1iG 


3SGB2S 
38825 


SGBBS3EG 


"5 = NEXT 
PRINT" {RVS ON; CRED; 


GOSUB496 
GOTO2869g 

REM XXXXKHKKKKKEK 

REM ¥*% LANDING ¥* 

REM XXXKXKKKHHENK 
MO=@:KL=@: ZX=8: TUS="" 

IFLEFTS (P#, 4) ="GULF "ORLEFTS (P#, 4) = 


“ATLA.” THENWA=1: GOTO49999 


SGGS31 


PRINT" CHOME3"5; ;:FORA=1TO9: PRINTRWS ( 


Ads: NEXT 


S3GGBS3S5 
S3GG4AG 
3GASG 
3GBAD 
38878 
S3OOGHS 


AL=9: JS=0: GOSUB915¢0 
IFUC<K 7 1 THENSSI96 
IFBR=1THENAS=AS-2¢4 

IFAS<S 1 THENS 1999 

RU=RU+tINT (AS/39) 

PRINT” CHOME? "SPC (18) LN: FORA=1T049 


G-ASS:NEXTSPRINT"{CHOMES "SPC (183)LNS(1) 


3AIGSH 
SIDI 
S3HOGF 1 


IFRU> 669 THENFSIGS 
GETAS 
IFAS="B" ANDBR=1THENBR=96: POKE1782,32 


7:POKES6954,8:GOTO36119 


SOBEL 


IFAS="B" ANDBR=STHENBR=1:POKE1782,8 


1:POKES693549, 2 


39911 


IFAS > 1 SG ANDEL=3THEN4S999G 
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39126 GOSUB799G9: GOSUB7 4699 

39298 GOTA3sE5¢g 

31999 REM ¥* SAFE LANDING ** 

31981 POKES4296, 6: POKES4278, @: POKES4277, 
G* POKES4276,9:POKE5S4273,9¢ 

31982 POKES4283, 9: POKES4284, 9: POKES4285, 


Gi POKES428S, 6 
31919 PRINT" {HOME}"3 : FORA=1TO19: PRINT" 


°NEXT 

31199 PRINT" {HOME} {WHT} YQU HAVE LANDED I 
N "EP 

31195 PRINT"ENGINES HAVE BEEN TURNED OFF 
..."!RU=G! TH=9! O0T=9! GOSUB1S99G: GOSUB7 999 
31197 IFP$="NEW YORK" THEN3S799¢ 

31116 FORA=1TOS5: IFD#(A) =PSTHEN3S2999 
31128 NEXT 

31139 PRINT"{LT GRN} {HOME} {CUR DN3<(CUR D 
N3{CUR DN}I AM SORRY, BUT THERE IS NO SC 
IENTIST":PRINT"WAITING HERE...” 

3114G GOSUB3599¢ 

31159 PRINT" {HOME}"3; : FORA=1TO9: PRINTRWS ( 
A) 3 :NEXT 

31169 GOTO431¢g 

32999 REM *% FOUND BUSINESS MAN ** 
32619 PRINT"{HOME} {CUR DN}<{CUR DN}<CUR D 
N3{LT GRN}A SCIENTIST RUSHES OVER TO YOU 
R PLANE” 

32629 PRINT"WITH A BRIEFCASE AND JUMPS I 
N.” 

32039 PRINT"’GET ME TO NEW YORK QUICKLY’ 
HE SAYS OR” 

32699 PRINT"I’LL BE LATE” 

32668 BM=BM+1:D$(A)="" 

32198 GOTO31149 

35998 REM *¥** TAKE OFF ONCE LANDED ** 
35929 GETAS: GOSUB9599: IFAS=""THEN3S5929 
35925 POKE5S4276, 9: POKES4283,9 

35930 POKES4296, 9: POKES4278, 249: POKES427 
739! POKES4276, 1292 POKES4273, 37 

35949 POKE54284, 9: POKES4285, 249: POKE5428 
3,17!:POKE54289,12 

35959 RETURN 

37998 REM **¥% NEW YORK *+* 
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37619 IFBM>=1THENSS999 

37626 PRINT" CHOME3{CUR DN {CUR DNI{CUR D 
NSC YELP YOU HAVE NO PASSENGERS. THE PRESI 
DENT Is" 

378398 PRINT"DISAPPOINTED WITH YOU...." 
37849 GOTO31149 

38999 REM*EXLAND SCIENTIST IN NEW YORKX* 
38G1G IFBM>1THENSCS="SCIENTISTS" 

38926 IFBM=1THENSCS$="SCIENTIST" 

38936 PRINT" {HOME} (CUR DN} CCUR DNICCUR D 
N>THE PRESIDENT GREETS THE "SCS", ” 

389496 NY=NY+BM 

389350 IFNY=STHENS 9999 


28969 PRINT"THE PRESIDENT THEN LOOKS AT 
fOU, WITH A WORRIED LOOK.WHERE ARE THE"; 


389790 PRINT" OTHERS. GO AND FIND THEM 

NOW" 

58939 BM=6:G0T03114¢9 

39666 REM **¥ MISSION COMPLETE ** 

S3°99G1G PRINT" {HOME} {CUR DN3{CUR DN3{CUR D 
N3{CUR DN?THE PRESIDENT IS VERY HAPPY WI 
TH YOU," 

39626 PRINT"HE THEN TELLS YOU THIS WAS O 
NLY A DRILL BUT ALL THE SAME HE IS STILL 


39939 PRINT"VERY PLEASED WITH YOU. WELL 
DONE!!" 

39949 END 

ADGIG REM KHXKHHIWIHHHIHHK 

4GGig@ REM ** CRASH ¥* 

ADA2GT REM KXKXKHHHHHHH 

49G39 PRINT" {HOME}"3 : FORA=1TO9: PRINT" 


a 
3 


NEXT 
46949 IFAL=GZANDUC=9THENPRINT"” CHOME 3 {WHT 3 
YOUR UNDERCARRIAGE WAS UP!!":GOTO42996¢ 


4969590 IFAL=GANDOT=GANDAS > 1 SGANDEL< >STHEN 
41699 
46G6G IFFUS1ISSSTHENPRINT" {HOME} YOU HAVE 


EXHAUSTED YOUR FUEL TANKS..." :GOTO94¢2999 

49978 IFAS>19S9ANDEL=3ANDOT=1THENPRINT"{H 
OME?YOU WENT NOSE FIRST INTO THE RUNWAY! 
: "3 GOTO42996 | 

49930 IFRU>699THENPRINT"{HOME?YOU RAN OU 
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T OF RUNWAY AND HIT ANOTHER PLANE" : GOT 
042996 

49999 IFMO=STHENPRINT" {HOME} YOU HIT THE 
MOUNTAIN. THE PRESIDENT WILLBE MAD": GOTQ 
420965 

49190 IFCR=1THENPRINT" {HOME} YOQU HAVED ST 
ALLED THE PLANE AND CRASHED" 

49119 IFCR=1THENPRINT"DUE TO LACK OF SPE 
ED" : GOTO42996 

49126 IFWA=1THENPRINT" {HOME ({CYN3 YOU LAN 
DED IN THE "PS 

4691390 IFWA=1THENPRINT"YOUR PLANE IS SINK 
ING..." 2: GOTOQ42996 

496199 IFUC=1ANDAL > 269THENPRINT" CHOME3 YOU 
R UNDERCARRIAGE LAY ON THE TOP OF A " 
49150 ITFUC=1ANDAL >269THENPRINT "MOUNTAIN 
BECAUSE YOU FORGOT TO RAISE IT": GOTO04296 
S 

41996 PRINT" {HOME} YOUR PLANE HAS LANDED 


ON IT’S BACK BECAUSE YOU HAD THE NO 
SE UP 


41919 PRINT"AND YOU WEREN’T GOING FAST E 
NOUGH TO TAKE OFF...” 

42998 REM ***% CRASH END ¥** 

42995 POKE54283,9:POKE54284, 9: POKE54285, 
@:POKE5428¢,¢ 

42919 PRINT"{WHT}YOU HAVE FAILED, AND A 

NUCLEAR BOMB IS ON IT’S WAY" 

42928 FORA=15TO@STEP-1:POKE542764, 129:PQK 
E54273,17!POKE54296, A! POKES4276,9 

42938 FORAA=1T0O19: NEXT: NEXT 

42198 POKES4296, 9: POKES4276, 9: POKE54277, 
S:POKES4278, 9: POKES4273,9 

42119 END 

SHIAS REM KKK KHIM IH HHH HIN 


3798190 REM **¥ CURRENT POSITION ** 
VOGBLG REM KEKKKKEKKHKHKKKKKKKKEKKKE 


I1GG6G xX=LO:Y=LA 
S191G IFX>=GANDX< =STHENS 2999 


IZ1IiG290 IFX>=G6ANDX< =F THENS SIGS 
319390 IFX>=1GANDX<=15THENS 4999 
21I1G4G IFX>=16ANDX<SH19PTHENSS99S 


S1GSG IFX>=2G6ANDX< =25THENS 6998 
3J1G69 IFX>=26ANDX%< =2PTHENS7SGS 
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319678 IFX>=3GANDX< =S5STHENSSEGG 

JI9SG IFK>=36ANDX< =39 THENSSS9DS 

S199G IFX>=4G@ANDX< =45THEN699Ga 

DJL119GG IFK>S=46ANDX< =49THENG1I9GGS 

S1116 IFX>=SG8ANDX< =SSTHEN6 2998 

JLll2G IFX>=S6ANDX<LHS59 THENSG SIGS 

Ji296 RETURN 

329089 REM ** BETWEEN @ AND SBS ¥*¥ 

V2610 IFY >=GANDY< =STHENPS="WASHINGTON" 
32926 IFY>=6ANDY<=19THENPS="QOREGON" 
329390 IFY>S=11ANDY< =25THENPS="CALIFORNIA" 
I2G49 IFY>=26ANDY<=S35THENPS="LOWER CALIF 
ORNTIA" 

32056 IFY>=36ANDY<=45THENPS="GULF OF CAL 
32866 GOTOS129¢9 

533990 REM ** BETWEEN G6 AND FY #* 

I3O019 IFY>=GANDY<=19THENPS=" IDAHO" 

53396206 IFYS=1LiIANDY< =29THENPS="NEVADA" 
IS3G3G IFYS=2ZIANDY“<=39GTHENPS="ARIZONA" 
33949 IFYO=SLANDY<=4S5THENPS="GULF OF CAL 


339850 GOTOS129¢0 

54969 REM *#* BETWEEN 10 AND 15 

S4919 IFY>=GANDY<=STHENPS=" MONTANA" 
54926 IFY>=6ANDY<=19THENPS="WYOMING" 
S4938 IFY>=11 ANDY< =29THENPS="UTAH" 

54949 IFY>=2Z1ANDY<=35STHENPS="NEW MEXICO" 
34659 IFY>=S36ANDY<=45THENPS="GULF OF CAL 
24966 GOTOS1299 

55996 REM ** BETWEEN 16 AND 19 ** 

359818 IFY>=GANDY<=STHENPS="NORTH DAKQTA" 
S9U929G IFY>=6ANDY<=19THENPS="SOUTH DAKOTA 
IJIUGSG IFYS=LIANDY< =29THENPS=" COLORADO" 
55949 IFY>=2Z1ANDY< =25THENPS=" OKLAHOMA” 
IJUGSG IFY>=26ANDY<=S35THENPS="TEXAS" 
S5969 IFY>=36ANDY<=45THENPS="MEXICO” 
3530870 GOTOS129¢ 

56999 REM **% BETWEEN 290 AND 25 **¥ 

36619 IFFY >=GANDY<=STHENPS="MINNESOTA" 
346920 IFFY >=GANDY<=196THENPS=" IOWA" 

369308 IFY?S=1i1IANDY<=15STHENPS=" NEBRASKA” 
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IFY >=16ANDY<=26THENPS="KANSAS" 

IFY }=21 ANDY <=39THENPS=" OKLAHOMA" 
IFY>=31LANDY<=49THENPS="TEXAS" 

IFY >=41 ANDY<=45STHENPS="GULF OF MEX 


GOTOS1299 

REM **%* BETWEEN 26 AND 29 *%* 

IF Y >=GANDY< =STHENPS="WISCONSIN" 
IFY >=46ANDY<=196THENPS="ILLINOIS" 
IFY>=11ANDY<¢=15THENPS="MISSOURI" 
IFY >=16ANDY< =25THENPS=" ARKANSAS" 
IFY >=26ANDY<=45THENPS="GULF OF MEX 


GOTOS1296 

REM ** BETWEEN 306 AND 35 ** 

IF Y >=SANDY<=STHENPS="MICHIGAN"” 

IFY >=6ANDY<=1 5THENPS="ILLINOIS" 
IFY >=16ANDY<=25THENPS=" TENNESSEE" 
IFY >=26ANDY<=45THENPS="GULF OF MEX 


IFY >=41 ANDY<=45THENPS="GULF OF MEX 


GOTO51296 

REM **% BETWEEN 36 AND 39 X%* 

IFY >=GANDY<=STHENPS="CANADA" 

IF Y >=GANDY<4=15THENPS=" INDIANA" 

IFY >=16ANDY<=29THENPS="KENTUCKY" 
IFY >=21 ANDY < =25THENPS=" TENNESSEE" 
IFY >=26ANDY<=S3OETHENPS="GULF OF MEX 


IFY F=S1LANDY<=49OTHENPS="MISSISSIPPI 


IFY 2=4F41 ANDY<=4S5THENPS="GULF OF MEX 


GOTOS1299 

REM ** BETWEEN 498 AND 45 ** 

IFY >=GANDY< =STHENPS="CANADA" 

IF Y >=6ANDY< =15THENPS="QHIO" 

IFY S=16ANDY< =26THENPS="WEST VIRGIN 


IFY 2=21ANDY< =25THENPS="CAROLINA" 
IFY >=26ANDY< =39THENPS="SOUTH CAROL 


IFY >=S1ANDY<=49THENPS="ALABAMA" 
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IF Y 2=41. ANDY<=4S5THENPS="GULF OF MEX 


GOT051296 

REM ** BETWEEN 46 AND 49° ** 

IFY >=SANDY<=STHENPS="NEW YORK" 

IF Y >=6ANDY<=19SGTHENPS="PENNSYLVANIA 


IFYS=1L1LANDY<=15THENPS="MARYLAND" 
IFY >=16ANDY< =26THENPS="VIRGINIA" 
IFY S=21ANDY< =25THENPS="NORTH CAROL 


IFY >=26ANDY<=SSTHENPS="SOUTH CAROL 


IFY F=SLANDY< =SS5STHENPS="GEORGIA" 


IFY S=36ANDY<=4S5THENPS="FLORIDA" 
GOTOQS51296 


REM ** BETWEEN SG AND S35 X** 
IF Y >=GANDY ¢ =STHENPS=" VERMONT " 
IF Y >=GANDY< =45THENPS="ATLANTIC OCE 


GOTQS512966 

REM ** BETWEEN 34 AND SP? ** 

IFY >=GANDY<=STHENPS="MAINE" 

IFY >=SANDY<=45THENPS="ATLANTIC OCE 


GOTOS12969 
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TOWERS OF 
NEPTUNE 


This is a variation on that old favorite, TOWERS OF 
HANOI . In this puzzle, you have to move several 
Layers of steel, of different sizes, off one peg and 
onto another. This may seem simple, but of course, there 
are rules you have to follow to achieve the goal: | 


1 —- You must take the top Layer off each peg 


e¢ — You cannot put a Larger Layer on top of a 
smaller one 


3 — You must move all the Layers from peg number 
one to peg nine 


There are three pegs. One peg at a time will be shown on 
the screen, enlarged, in the center, So you can’ see 
which Layers are on it. The other two pegs will be in 
the background. These background pegs have numbers on 
them, representing the Layers which are on them. 


19 AS(1)="{GRN} {RVS ON 
>) G1 _" 
119 AS(2)="{GRN} CRVS ON3D 
G2 ” 
128 A%(3)="{GRN} CRVS ON3D 
G3 _” 
139 AS(4)="{GRN} {RVS OND 
G4 — 
1949 AS(5)="{GRN} CRVS ON}D 
a5 " 
159 AS(6)="{GRN} CRVS OND 
Bé _” 
168 AS(7)="{GRN} CRVS OND 
G? : 
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176 A$S(3)="{GRNF tRVS ONS) 

GS ae 
189 AS(9)="{GRN} {RVS ON}D 

GP oe 
1996 BS="{RVS ONFCRED}_ {CUR DNSCCUR L3{C 
UR L3 {CUR DN3tCCUR L3tCUR L: {CUR DNC 
CUR L3{CUR L3} {CUR DN{CUR LI{CUR L3 { 
CUR DN}TCUR L;iITCUR Li {CUR DN-ICUR LC 
UR L3} TCUR DN {CUR L3{CUR L} {CUR DNG¢t 
CUR L3t(CUR L? {CUR DNFC{CUR L3{CUR L? if 
CUR DN} {CUR L3{CUR L3 {CUR DN TCUR Li{C 
UR Ls CCUR DN3TCUR L3{CUR Li {CUR DN3¢ 
CUR L3fCUR L} i 
2690 BS=BSt+"( CUR DN3{CUR L3t{CUR L3 {CUR 


QDNI,EUR L}{CUR L+ {CUR DN}{CUR L{CUR L 
CUR DN3{CUR L3{CUR L} {CUR DNIICUR 


L+{CUR Lz i 
219 C#="{RVS ON} {RED}? 


Zilli PRINT"{CLRITCUR DN} {CUR DNF(CUR DNS" 


SPC (19) BS 
212 PRINTCS 


226 PRINT" {HOMES (CUR DNF{CUR DNS {CUR DN? 
{CUR DN"; POKESS251,969 
239 LS="{PURIAN ACCUR DNILCUR L}{CUR L3{C 


UR L3}4 ¥{( CUR DN} C{CUR L3{CUR LI{CUR LiF X 
{CUR DN3{CUR L3{CUR L3{CUR L3?4 X¥{CUR DN} 
{CUR L}3{CUR L3{CUR L}4 X¥{CUR DN} {CUR Lit 
CUR L3{CUR L334 X{CUR DN {CUR LI{CUR L{C 
UR L3}4 ¥{CUR DN}ICUR Li{CUR L?{CUR Li4 *# 
{CUR DNITCUR L}{CUR L3{CUR L34 X{CUR DN; 
{CUR L}3<{CUR Li{CUR L}I{CUR LiAN77/71(I" 

398 PRINTAS(1) 2: PRINT: PRINTAS(2) :PFRINT: PR 
INTAS (3) SPRINT: PRINTAS(4) ;PRINT:? PRINTAS ( 
2) SPRINT: PRINTAS(6) -PRINT: PRINTAS(?7) 

519 PRINT: PRINTAS(S3) ;:PRINT: PRINTAS(9?) 
696 PEG=1:A=1: B=1:C=1:D=1°E=1:F=1:G=1:H= 
1:I1=1 

619 PRINT" CCLRISLEVEL OF DIFFICULTY (1 TO 
ey” 

611 INPUTL: IFL<10ORL>STHENS1I9 

giz A1L$="F67654321" 2 A1S=LEFTS(A1S,L) = QS= 
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626 DS="{CHOMESCCUR 


UR 
UR 
UR 
UR 


DN (CUR 
DN (CUR 
DNTCUR 
DN {CUR 


DN? (CUR 
DN{ CUR 
DN; TCUR 
DNF i CUR 


DNF{( CUR 
DN FT CUR 
DN} (CUR 
DN;{CUR 
DN>(CUR 


DN (CUR 
DNC CUR 
DN FTCUR 
DN (CUR 
DN? {CUR 


DINSIC 
DNs<¢ 

DNic 
DNC 
DNF CTC 


UR DN?” 
6539 AL=22L:A2=22: AS=22° GOTQP49SD 
788 IFFEG=1THEN/S9 
785 PRINT"{HOMES (CUR DNS CYEL3PEG 1" 
796 PRINT"{HOME} (CUR DNICCUR DN}tTCUR DN; 
{CUR DNS {CUR RT3"LS 
7i@ PRINT" CHOME; {CUR DNI {CUR DNCCUR DN} 
(CUR RTI(CUR RTFICYNG” 
726 FORT=STOLSTERP-1:PRINT"{CCUR RTFCCUR R 
T3"MIDS(A1$,T,1) > NEXT 
IFPEG=2THENSSS 
32 ITFPEG=1THENSO96S 
53 IFPEG=3THENSS569 
2S PRINT" {HOME} (CUR DN} {YEL3"SPC(3) "PEG 
= 


PRINT"{HOME3 {CUR DN3<CUR DN3{CUR DN} 
{CUR DN3"SPC(7)LS 

757 PRINT"{HOME} (CUR DN3<CUR DN}{CUR DN} 
$66" FORT=9TOLSTEP-1!PRINTSPC (8) MIDS (AZ 
27,1) 2NEXT 

896 IFPEG=3THENS5¢ 

S95 PRINT" {HOME} {CUR DN} {YEL3 "SPC (34) "PE 
G 3" 

896 PRINT" {HOME} {CUR DN3{CUR DN3{CUR DN} 
{CUR DN} "SPC(35)L% 

887 PRINT"{HOME} {CUR DN3}{CUR DN}<CUR DN3 
CCYN3" 

818 FORT=9TO1LSTEP-1:PRINTSPC (36) sMID#(AS 
$,T,1):NEXT 

850 RETURN 


GG REM X*¥X INPUT *#*#* 
FOS FL=G2 A1L=22: A2=22: AS=22 


966 PRINT" {HOME:s; (CUR 


{CUR 


{CUR 
{CUR 


{CUR 


DNF {CUR 


DN? CUR 
DN>{ CUR 


DNC CUR 


DN;{TCUR 


DN{CUR 
DN>{ CUR 


DN+( CUR 
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DN (CUR 
DN S{CUR 
DN>{CUR 
DNS {CUR 
DNs{ CUR 


DN< CUR 
DNS (CUR 
DN{(CUR 
DN tT CUR 
DN: " 


DN? 
DN> 
DNs 
DN 


718 PRINT"{GQR} INPUT: CWHT} WHICH PEG WOULD 
YOU LIKE TO VIEW?" 

S29 GETPEGS: IFPEGS=""THENS2S 

925 PEG=VAL (PEGS) 

926 IFPEG< 1ORPEG>3THEN9SS6 


3G IFPEGS 1LORPEG?STHEN?19 
49 IFPEG=1THEN1OSE 


950 IFPFEG=2THENIS96 

766 IFPEG=3THEN299¢ 

19666 REM PEG 1 

1991 PRINT"{CLR3C{CUR DN} {CUR 
"SPC (19) BS 

1982 PRINTCS 

191906 FORT=1TOLEN(A1S) - 2S$=MIDS(A1IS,T,1)°2 
=VAL (ZS) 


DNSTCUR DN> 


1911 PRINTLEFTS(D%, A1)A%(2Z) 2 A1=A1-2 

1Gi2 NEXT 

16290 GOTO398¢9 

1596 REM PEG 2 

1591 PRINT"{CLRI{CUR DN3}{CUR DN3{CUR DN} 


"SPC (19) BS 

1592 PRINTCS 

135196 FORT=1TOLEN(A2S) : 2Z2S6=MIDS(A2SH,T,1)°2 
=VAL (29) 


1511 PRINTLEFTS (DS, A2) AS(Z) 2 A2Z=A2-2 

1512 NEXT 

1529 GOTO399¢ 

2999 REM PEG 3 

2661 PRINT"{CLRI{CUR DN} {CUR DN} {CUR DN3 


"SPC (19) BS 

2692 PRINTCS 

26160 FORT=1TOLEN (ASS) > 2%=MIDS(ASS,T,1)°2 
=VAL (2%) 

2911 PRINTLEFTS (DS, A3) AB(Z) 2 AB=AS-2 

2G12 NEXT 

389908 REM 2ND INPUT 

39198 GOSUB?7SS 

3SG11 IFASS=QSTHENS6DOS 


3915 PRINT" CHOME? (CUR 
{CUR DN3I{CUR 


DN} C€CUR DNF{CUR DN 


7;{ CUR 
7 tT CUR 


7{CUR 


DN3 {CUR 
DN>*CUR 


“DNF (CUR 


DN {CUR 
DN {CUR 
DNF (TCUR 
DN3{CUR 
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DNSTCUR 
DN?{(CUR 
DN? (CUR 
DN{CUR 


DN {CUR 
DN {CUR 
DN {CUR 
DNs" 


DIN 
DN 
DN 


39246 PRINT" {GR} INPUT: {<WHT3}DO YOU WANT TO 
VIEW ANOTHER FEG? ” 

39390 GETTS: IFTS< o> "Y"ANDTS< > "N" THENS OSS 

396460 IFTS=""" THENSSS 

S945 PRINT" {HOMES {CUR DNI{CUR DNI{CUR DN 
{CUR DNC CUR DN} {CUR DNICICUR DNICCUR DN 
{CUR DN CCUR DN {CUR DN3{CUR DN3{CUR DN 
3€CUR DN}{CUR DN}{CUR DN?¢(CUR DN}<CUR DN 
{CUR DNSICUR DN}ICUR DN3{CUR DN}3" 

3950 PRINT"{(GRI INPUT: CWHT FWHICH LAYER DQ 
YOU WANT TQ MOVE?" 

3666 GETNS: TFNS="" THENS949 

29065 N=VAL (NS) 

~2GO6 IFN< LORN?STHENSS45 

397QG IFPEG< >1THEN3873 

S871 FORT=1TOLEN(A1S$) :IFVAL (MIDS(A1%,T, 1 
)) =NTHENFL=1 

3072 NEXT: IFFL=STHENSS9S 

3873 IFPEG< >2THENSO76 

397494 FORT=1TOLEN(A2S) : IFVAL (MIDS (A2S,T, 1 
}) =NTHENFL=1 

36735 MEXT: IFFL=STHENFSSS 

3876 IFPEG< >2THEN3SS79 

3977? FORT=1TOLEN (ASS) ©: IFVAL (MIDS(ASS,T, 1 
)) =NTHENFL=1 

39783 NEXT: IFFL=GTHENSSSS 

3979 FL=9: IFPEG=1THENIFVAL (RIGHTS(A1S, 1) 
)< }NTHENFL=2: GOTQ4699 

39380 FL=G: IFPEG=2THENIFVAL (RIGHTS (A2S, 1) 
)< >NTHENFL=2: GOTO4999 

3981 FL=4@: IFPEG=3THENIFVAL (RIGHTS (ASS, 1) 
)< >NTHENFL=2: GOTO4999 

S39389 PRINT" {HOME} {CUR DNI{ CUR DN3{£CUR DN 
{CUR DN}CICUR DN3CCUR DN}C£CUR DN(CUR DN 
{CUR DNS {CUR DNF{ CUR DN3{CUR DN} {CUR DN 
{CUR DNC CUR DNICCUR DN{CUR DN3{CUR DN 
3{CUR DNS {CUR DN}{CUR DN3{CUR DN" 


39990 PRINT" {CORSINPUT: Seng re LAYER"N"¢ 
CUR L} TO WHICH PEG? 


3O91 GETPS: IFPS=""THENSSP1 
3692 P=VAL (PS): IFP< 1ORP>3THEN3S989 


3993 IFP=PEGTHENSS89 
3999 IFRP=1ANDVAL (ALS) >G@THENTFN?VAL (RIGHT 
$(A1G,1)) THENFL=3: GOTO4999 
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3693 IFP=2ANDVAL (A2S) >GTHENIFNSVAL (RIGHT 
$(A2S,1)) THENFL=3: GOTO4699 
39°6 IFP=3ANDVAL (A3S) >OTHENIFNSVAL (RIGHT 
$(A3$,1)) THENFL=3: GOTO9V999 
S697 IFPE=1THENZ=LEN(A1S$) : Z=Z-1: A1S=LEFT 


$ (ALS, Z) 
3O@98 IFPE=2THENZ=LEN (A2%) :Z=Z-1!A2%=LEFT 
$(AZS, Z) 
3899 IFPE=3THENZ=LEN (ASS) !Z=Z-1:A3%=LEFT 
$ (ABS, Z) 


S198 TFRP=1THENALS=A1LS+RIGHTS(STRS(N), 1) 
3i1lG IFP=2THENA2ZS=A2StRIGHTS(STRS(N) , 1) 
3120 TFP=3THENASS=ASS$+RIGHTS(STRB(N),1) 
3130 PRINT" {(CLR}"2AL=22°5A2=22:5A3=22:FL9 
7 GOTOS4S 

4990 REM BLOCK NOT ON PEG 

4995 FORT=1TO? 

49986 FORTT=1TO26G6: NEXT 


4616 IFFL=S8THENPRINT"{HOME}LAYER NO#"N"T 
S NOT ON PEG NO#"PEG 


4929 IFFL=2THENPRINT"{HOME3LAYER NO#"N"I 
SN’ T ON THE TOP.” 


49390 IFFL=STHENPRINT" f{HOMESBIGGER LAYER 
ON A SMALLER LAYER NOT NICE" 

49496 FORTT=1TO350: NEXT 

4956 PRINT" CHOME 3 


4466 NEX 
4979 GOTOS9H 
39090 PRINT"{HOMES {CUR DNSLYELSPEG 2" 


5919 PRINT" {HOME} {CUR DN} CCUR DNF {CUR DN 
{CUR DNF{CUR RT3"LS 


5920 PRINT" CHOME}{CUR DN} {CUR DN}{CUR DN 
£€CUR RT3{CUR RTL CYN}" 

5939 FORT=9TOLSTEP-1:PRINT"{CUR RT}<CUR 
RT3"MIDS(A2%,T, 1) 2NEXT 

5949 GATOSsE 

S@5O6 PRINT"{HOME3{CUR DN{YEL3 "SPC (34) "P 
EG 2" 

S955 PRINT" {HOME}<{CUR DN}{CUR DN}{CUR DN 
{CUR DN} "SPC(35)L% 

5969 PRINT" {HOME}{CUR DN}{CUR DN3<CUR DN 
><CYN3" 
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39708 FORT=9TO1LSTEP-1:PRINTSPC (36) sMID#S(A 


2$,7T,1):NEXT 
Sasa GoTosse 


6988 PRINT"{CLR} {WHT ICCNGRATULATIONS!!'!" 
6919 PRINT: PRINT: PRINT"{YELSTHAT IS REAL 
LY WELL DONE..." 


READY. 
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Here, out in the ocean far from land, you are battling 
for your Life. In control of a convoy ship guarded by 
an escort vessel, you are attempting to sink an_ enemy 
submarine which is somewhere in the waters below you. 


When the program begins, you are asked to enter the size 
of the grid on which you will play. The Larger the grid, 
the more room you have to sail to evade the submarine, 
and the more room the submarine has to get away from 
you. In this sample game, I decided on a grid measuring 
eight each side: 
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ENTER SIZE OF GRID (3 TO 20)? 8 


Enter degree of difficulty 
1 - easy 
10 = very hard? 7 


The ‘degree of difficulty’ controls the accuracy = and 
frequency of the submarine's attempts to destroy you. 


You are then asked to place your convoy ship (the Letter 
C) and your escort vessel (an E) on the grid, as_ the 
computer places its submarine. 


“PLACE CONVOY (TWO NUMBERS 
EACH LESS THAN 9 ) 

? 3,2 

PLACE ESCORT (TWO NUMBERS 
EACH LESS THAN 9 ) 

? 6,7 


I AM PLACING THE SUBMARINE 


The computer then prints a map of the situation: 


Sub condition: 0 
>> Day 1 << 
Shots left 20 
>Convoy at 3 2 Condition: 0 
>Escort at 6 7 Condition: 0O 


>= eaeeiwm @& @ wee & Bh ee SB OS Se owe we we Re ee Pawan aaa ee Ge @ && a GG ew = aD 
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CONVOY AT 3 2 
MOVE IT (Y OR N)? Y 
N, S, E OR W? E 
-~>> CONVOY NOW AT 3. 3 


The submarine, the convoy and the escort can. each 
Sustain three hits before they are destroyed. You have 
only 20 anti-submarine missles. On each move, you can 
change the convoy's position, use its sonar to Look for 
the submarine and fire, then carry out the same’ three 
actions (if you want to) for the escort: 


Sub condition: 1 
>> Day 1 << 
Shots left 19 
>Convoy at 3 3 Condition: 0 
>Escort at 6 7 Condition: 0 


GO  savedcw ae ere 

Ue. Gow de GS-8 

6 asia: ESCORT AT 6 7 
ee MOVE IT (Y OR N)? Y 
ae eee N, S, E OR W? W 

ce ee ->> ESCORT NOW AT 6 6 
O) raue te ita 

oer 


Sub condition: 1 
>> Day 1 << 
Shots left 19 
>Convoy at 3 3 Condition: 0O 
>Escort at 6 6 Condition: 0 
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The sub is moving... 
Sub unleashes longerange missile! 
Escort hit 6 6 


Sub condition: 1 
>> Day 2 << 
Shots left 19 
>Convoy at 2 3 Condition: 0O 
>Escort at 6 6 Condition: 1 


Big Ore Vereueun 


=] MW & VIAN © 
e 


@e@e%o?8 98? @¢@ 


DO YOU WANT TO FIRE (Y OR N)? Y 
WHICH DIRECTION (N, S, E OR W)? E 
Barrage no. 2 hit sub 


Sub condition: 2 
>> Day 2 << 
Shots left 18 
>Convoy at 2 3 Condition: 0 
>Escort at 6 6 Condition: 1 
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ESCORT AT 6 6 
MOVE IT (Y OR N)? N 
DO YOU WANT TO USE 
SONAR ON ESCORT (Y OR N)? Y 


SONAR READING IS 5.099 


Once you've made your move, the computer responds by 
moving the submarine and possibly firing at you: 


Sub condition: 2 
>> Day 3 << 
Shots left 17 
>Convoy at 3 3 #=jCondition: 0 
>Escort at 6 6 Condition: 1 


neernmenrerwaeeenreaee@ oe@eoewmwa@eag@eree@a @ & = @ = a aw co» cp Ge Gy a= == co 


ies eeutes ecte fs 


= MW & U1 ON © 


The sub is moving... 
Sub unleashes longerange missile]! 
Escort hit 6 6 


The escort is now in a bad way. One more hit and it will 
go down to the bottom (as its condition is 2, as shown 
above the grid). However, the submarine is. also 
suffering, with a similar condition rating. The program 
continues until either the submarine has been destroyed 
(as in our sample run) or both your vessels have been 
sunk: 


Sub condition: 2 
>> Day 6 << 
Shots left 14 
>Convoy at 5 3 #j\Condition: 1 
>Escort at 6 6 Condition: 2 


= POW FUaN © 
© 
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DO YOU WANT TO FIRE (Y OR N)? Y 
WHICH DIRECTION (N, S, E OR W)? S 
Barrage no. 7 hit sub 


Well done...you have destroyed the sub 


Convoy condition: 1 
Escort condition: 2 


Note that, whatever you do, you should not move directly 
over a submarine. Try it to see what happens if you 
don't mind losing a vesseL. Here is the Listing now to 
allow you to take part in this simulated battle of 
submarine combat: 
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226 


UH 
236 


2468 
259 


REM SEAWOLF 

GOSUB251@:REM INITIALISE 
GOSUB235@:REM PRINT GRID 

IFC1< >@THENGOSUB419:REM MOVE CONVOY 
IF CC >2ANDEC >2THEN299 


IFSH< 1 THEN2ZSS 
IFSC >2THENS79 


GOSUB235¢ 

IFE1< S@THENGOSUBS54:REM MOVE ESCORT 
GOSUB2359 

IFCC >2ANDEC >2THEN29@ 

IFSH< 1 THEN296 

IFSC >2THEN3?79 

GOSUB162@:REM CONTROL SUB 
FORT=1TO19@G:NEXT T 

DA=DA+1 

GOTO3¢ 

END 

REM XK HHH HHH 

REM END OF GAME 

PRINT" ------------------------------ 
PRINTTAB(6) "THE GAME IS OVER...AS YO 
AVE" 


PRINTTAB(18) "LOST" 

PRINTTAB(6) "YOUR ESCORT AND CONVOY" 
PRINT" ------------------------------ 
PRINTTAB(9) "YOU SURVIVED FOR"DA"DAYS 
PRINT" ------------------------------ 
END 

REM ¥% OUT OF SHOTS ** 

PRINT" ------------------------------ 


PRINTTAB(6) "YOU HAVE RUN OUT OF SHOT 


PRINT" ------------------------------ 
PRINT"SUBMARINE CONDITION: "SC 
PRINTTAB(4) "CONVOY CONDITION: "CC 
PRINTTAB(4) "ESCORT CONDITION: "EC 
GoTaz25¢ 
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389 PRINT"WELL DONE...YOU HAVE DESTROYED 
THE SUB" 

398 GOTO34¢g 

AGH REM HHXHXHKHHHKKHHKHKKHKHS 

419 REM MOVE CONVOY 

426 PRINT:PRINT"CONVOY AT"C15C2 

43@ X1=C1:xX2=C2 

44@ INPUT" MOVE IT (Y OR N)"3AS 

450 IFA$<>"Y"ANDAS< > "N" THENG4S 

469 IFAS="N"THEN659 

478 PRINT"N, S$, E OR W" 

489 INPUTAS 

49@ IFAS<>"N"ANDAS< > "S"ANDASS > "E" ANDAS< > 
"W" THEN4S@ 

5S@@ IFAt="N"ANDC1=ZTHENSSS 

519 IFAS="S"ANDC1=1 THEN4SSS 

S28 IFAS="E"ANDC2=ZTHEN4SS 

S39 IFAS="W"ANDC2=1 THENGSS 

549 A(C1,C2)=BL 

559 IFAS="N"THENC1=C1i+1 

568 IFAt="S"THENC1=C1-1 

578 IFAS="E"THENC2=C2+1 

589 IFAS="W" THENC2=C2-1 

S99 IFA(C1,C2)=ESTHENPRINT"YOUR ESCORT I 
S THERE! ":C1=xX1!C2=x2!GOTO42g 

66@ IFA(C1,C2)=SUTHENPRINT"YOU MOVED RIG 
HT OVER THE SUBMARINE": FORT=1TO599: NEXT 

685 IFA(C1,C2)=SUTHENPRINT"IT FIRES UPWA 
RDS!":FORT=1TO599: NEXT 

686 IFA(C1,C2) =SUTHENCC=4! 0G=1:C1=6!C2=9 
*RETURN 

619 PRINTTAB(3)"@>> CONVOY NOW AT"C13;C2 

628 FORT=1TO59@:NEXT T 

638 A(C1,C2)=coO 

64G GOSUB235¢:REM PRINT GRID 

658 PRINT"DO YOU WANT TO USE"!:PRINT"SONA 

R ON CONVOY (Y OR N)" 

668 INPUTAS 


670 IFAS >" Y"ANDAS< >"N" THEN669 
6389 IFAS="N" THEN? S39 


699 PRINT: PRINT"SONAR READING IS"; 
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766 NA=INT (19G9GXSAR((C1-SidI*(C1-S1)+0C2- 
S2)*#(C2-S2)))/1996 

716 PRINTNA 

7268 FOR T=1TO1LS@GG: NEXT T 

736 GOSUB2359: REM PRINT GRID 

746 PRINT: PRINT"DO YOU WANT TO FIRE (Y QO 
RN)" 

798 INPUTAS 

769 ITFAS<K >" Y"ANDASK > "N" THEN?ZSS 

7/76 IFAS="N" THENRETURN 

788 PRINT"WHICH DIRECTION (N, S, E OR W) 


7°68 INPUTAS 

SOG IFASB< >"N"ANDAS<S OF" S"ANDAS< > "E" ANDAS< > 
"W" THEN? SS 

819 SH=SH-1 

S826 IFAS<>"N"ANDAS<S > "S" THENS69 

S36 IFS2< >C2THENSSS 

S40 IFAS="S"ANDS1<¢C1ORAS="N"ANDS1>C1 THEN 
39d 

S56 PRINTTAB(S) "ASW WAS UNSUCCESSFUL": GO 
TOV1¢ 

S690 IFS1< >CiTHENSSd 

S870 IFAS="W"ANDS2<C20RAS="E"ANDS2>C2THEN 
3°R 

38368 GOTO8S59 

S99 PRINT"BARRAGE NO. "26-SH"HIT SUB" 

966 SCc=SCt+1 

919 FORT=1TOS9SO?: NEXTT 

S26 GOSUBI49S9 

930 RETURN 

PAG REMEKKKXKHKHKHKHKKKHKKKKKKKEKE 

9598 REM MOVE ESCORT 

966 PRINT: PRINT"ESCORT AT"E15E2 

970 Ki=E1LIxX2=E2 

°38O INPUT" MOVE IT (Y OR N) "5A 

99D IFASB<K>"Y"ANDAS<S 7 "N" THENSSS 

1968 IFAS="N" THEN1199 

19190 PRINT"N, S, E OR W" 

1929 INPUTAS 

1G3SG IFASB<K >"N"ANDAS< O"S"ANDASS > "E"ANDAS<S 
>"W" THEN1 G29 

194996 IFAS="N"ANDE1=ZTHEN1I629 

193590 IFAS="S"ANDE1=-1THEN1S29 
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19698 


1979 
1986 


1996 
1196 


11196 
1126 


11396 


IFAS="E”" ANDE2=ZTHEN1926 


IFAS="W" ANDE2=1 THEN192@ 
A(E1,E2)=BL 


IFAS="N" THENE1=E1+1 
IFAS="S"THENE1=E1-1 
IFAS="E" THENE2=E2+1 
IFAS="W" THENE2=E2-1 
IFA(E1,E2)=COTHENPRINT”" YOUR CONVOY 


IS THERE! ":E1=X1:E2=X2: GOTO969 


1149 


IFA(E1,E2)=SUTHENPRINT"YOU MOVED RI 


GHT OVER THE SUB! ":FORT=1TOS9@: NEXTT 


1145 


IFA(E1,E2)=SUTHENPRINT”"IT BLASTS UP 


WARDS!" FORT=1TOQSO@: NEXT 


1146 


IFA(E1,E2) =SUTHENEC=4:0G=1:E1=9:E2= 


98: RETURN 


1156 
1164 
1179 
11896 
119°¢ 


PRINTTAB(3)"7>> ESCORT NOW AT"E1S5E2 
FORT=1TOS5@@: NEXT T 

A(E1,E2)=ES 

GOSUB235@:REM PRINT GRID 

PRINT"DO YOU WANT TO USE":PRINT"SON 


AR QN ESCORT(Y OR N)" 


1269 
1216 


1226 
1236 


1246 


INPUTAS 
IFAS< >" Y"ANDAS< >"N" THEN1I 2969 


IFAS="N" THEN12796 
PRINT: PRINT"SONAR READING IS"; 
NA=INT (1GG6OXSOR ((EL-SIlIX(E1L-S1)+(E2 


-S2)*#(E2-S2)))/1699 


12596 
1266 


1279 
1289 


PRINTNA 
FORT=1TO19969: NEXT T 
GOSUB2359:REM PRINT GRID 


PRINT: PRINT"DO YOU WANT TO FIRE (Y 


OR WN)" 


1299 
1396 
1314 
1326 
»" 

1336 
1346 


INPUTAS 

IFAS< > "Y"ANDAS< >"N" THEN1 299 
IFAS="N" THENRE TURN 
PRINT"WHICH DIRECTION (N, S, E OR W 
INPUTAS 


IFAS< >" N"ANDAS< > "S"ANDAS<S > "E" ANDAS< 


>"W" THEN1 339 


1359 
1369 
1376 


SH=SH-1 
IFAS< >" N"ANDAS<S F"S" THENI4G9S 
IFS2< SE2THENI S99 


282 


1386 IFAS="S"ANDS1<ELORAS="N"ANDS1 >E1 THE 
N1439 

1390 PRINTTAB(S) "ASW WAS UNSUCCESSFUL":G 
OTO0145¢ | 


1496 
1916 


IFS1< 7E1THEN1I3S99 
IFAS="W"ANDS2¢ E2ZORAS="E"ANDS2SE2THE 


N143¢ 


14926 
1439 


1949499 
1959 
1966 
19476 
149869 
1496 
13596 
15194 
1529 
1536 
135496 
1559 
1569 
1576 
13586 


GOTO13°9S6 
PRINT"BARRAGE NO"26-SH"HI SUBMARINE 


SC=SCH1 

FORT=1TOS@@:NEXT T 

GOSUB149q¢. 

RETURN 

REM KK KKK KKK KKK KKK KKK KIS 

REM MOVE SUB AFTER BEING HIT 
Y1=S1:Y2=S2 

A(S1,S2)=BL 

S1=S1+INT(RND(1)*¥2) -INT(RND(1) ¥2) 
S2=S2+INT(RND(1)¥2) -INT(RND(1) ¥2) 
IFS1<1THENS1=1 

IFS1>ZTHENS1=2 

IFS2<¢ 1 THENS2=1 

IFS2>ZTHENS2=Z 

IFA(S1,S2) =ESORA(S1,52) =COTHENS1=Y1 


-S2=Y2 


159°C 


1696 
161¢ 


1629 
1636 


1646 
1656 
1669 


167¢ 
1689 


1699 
17966 


1712 
133% 


1746 


A(S1,S2)=SU 

RETURN 

REM HHH HEHE KEI 

REM CONTROL SUB 

PRINTTAB(6) "THE SUB IS MOVING..." 
XL=Si1:x2=S2 

A(S1,S2)=BL 

REM ** PICK CONVOY OR ESCORT ** 
R=INT(RND(1)¥2) +1 
IFR=1THENK1i=C1:K2=C2 
IFR=2THENK1=E1!:K2=E2 

FA=9 

IFRND (1) >DITHEN2259 


IFFA=1 THENRETURN 
IFRND(1)>.5THEN1779 


IFS1<KITHENS1=SititIFSi>+ZTHENS1=2:G 
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OTO179¢9 

1758 IFS2<K2THENS2=S2t+1:2:IFS2>ZTHENS2=2:6 
OTO1799 

1768 GOTO1796 

17760 IFSK?>KITHENSI=S1-1:°1IFS1<1THENSI=1:°G 


OTO1799 ; 
1789 IFS2>K2THENS2=S2-1:1IFS2<1THENS2=1 


1799 IFA(S1,S2) << >BLTHENS1=X!S2=X2!:GOTO16 
52 

1898 A(S1,S2)=SU 

1819 PRINTTAB(6) "SUB HAS STOPPED...” 
1829 PRINTTAB(7) "PREPARING FOR SONAR..." 
1838 REM **% 20% CHANCE OF NOT ATTEMPTING. 
TO FIRE ** 

184@ IFRND(1) >. 8THENRETURN 

1859 IFS1< >E1LTHEN295¢ 

186@ IFS2<E2THEN196¢ 

1879 IFS2>E2THENPRINT"I AM FIRING AT ESC 
ORT..." 

188@ FORE=S2TOE2STEP-1 

1899 IFE“<>S2THENPRINTTAB(E) "TORPEDO AT"S 
13E 

199@ FORT=1T019@6:NEXTT 


1o50 NEXTE 
926 IFRND(1)>.9THENPRINTTAB(7) "TORPEDO 


WAS INEFFECTIVE" :RETURN 

1939 PRINT"ESCORT HIT AT"E13E2!:EC=ECt1:1 
FEC >2THENOG=0G+.5 

1949 IFEC>2THENA(E1,E2)=BL:E1=9:E2=9: RET 
URN 

195@ RETURN 

1969 PRINT"I AM FIRING AT ESCORT..." 
1979 FORE=S2TOE2 

1989 PRINTTAB(E) "TORPEDO AT"S1,E 

1999 FORT=1TO19@6:NEXTT 

2698 NEXTE 

2619 IFRND(1)>.9THENPRINTTAB(4) "TORPEDO 
FAILED..."!:RETURN 

2926 PRINT"ESCORT HIT"E13E2:EC=ECt+1: IFEC 
>2THENOG=O0G+.5 | 

263@ IFEC>2THENA(E1,E2) =BL:E1=@:E2=9: RET 
URN 

2849 RETURN 
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293590 IFS1<°7C1THENRETURN 

2868 IFS2<C2THEN2169 

2670 IFS2>C2THENPRINT"TI AM FIRING AT CON 
VOT oe” 

2989 FORE=S2TOC2STEP-1 

ZO Eo IFE< >S2THENPRINTTAB(E) "TORPEDO AT"S 


2169 FORT=1TO19G: NEXTT 


21196 NEXT E 

2126 IFRND(1)>.7THENPRINTTAB(4) "TORPEDO 
FAILED...":RETURN 

21390 PRINT"CONVOY HIT AT "C1i3;C2:CC=CCt1: 
IFCC >2THENOG=0Gt.5 

2149 IFCC}2THENA(C1,C2)=BL:C1=6: C2=G: RET 
URN 

2159 RETURN 

2166 PRINT"I AM FIRING AT CONVOY..." 
2176 FORE=S2TOC2 

2186 PRINTTAB(E) "TORPEDO AT "S15E 

21996 FORT=1TO1G6: NEXT T 

2268 NEXT E 

22198 IFRND(1)>./7THENPRINT" TORPEDO FAILED 
eee s RETURN 

2226 PRINT"CONVOY HIT AT"C1i;C2°:CC=CCti:il 
FCC >2THENOG=O0OGt.5 

2236 IFCC>2THENA(C1,C2)=BL:C1=6: C2=6: RET 
URN 

22996 RETURN 

22598 PRINT"SUB UNLEASHES LONG-RANGE MISS 
TLE? 

2266 GOSUB2319¢ 

22708 IFR=2ANDEC<Y 3STHENFA=1 2: GOTO2626 

2289 IFR=2THEN2399 

22998 IFCC< 3THENFA=1: GOTO2229 

23966 PRINTTAB(12) "IT FAILED..." 

23196 FORT=1TOSG6:NEXT T 

23206 FA=1 

2339 RETURN 

Z34G REM KHEKHKKKKKKKKKKKKE 

2359 REM PRINT GRID 

2366 PRINT"{CLR}”" SPRINT: PRINT 

2379 PRINT, "SUB CONDITION: "SC 

23386 PRINT">> DAY"DA"<<" 

23990 PRINT, "SHOTS LEFT"SH 


285 


IFC1>STHENPRINTTAB(4) "CONVOY AT"C15 


CONDITION: "CC 


IFC1<1THENPRINT"CONVOY DESTROYED" 
IFE1°STHENPRINTTAB(4) "ESCORT AT"E15 


CONDITION: "EC 
IFEL1< 1THENPRINT"ESCORT SUNK!" 


PRINT "----------------------------- 


------ ":PRINT 
FORC=ZTOLSTEP-1 
IFC< 19THENPRINT" 
IFC >9THEMPRINTC; 
FORD=1TOZ 


ss ee 


IFA(C,D) < >SUTHENPRINTCHRS (ACC, D))5 


IFA(C,D) =SUTHENPRINT". "3 
NEXTD 

PRINT 

NEXT C 

RETURN 

REM INITIALISATION 
PRINT" {CLR" 
POKES3281,96:POQKES3289,9 
PRINT" {CLR " 

PRINT: PRINT 


PRINT"ENTER SIZE OF GRID (3 TO 29)" 


INPUT2Z 
IF2Z< S0ORZ > 2ETHENZS7S 


PRINT: PRINT"ENTER DEGREE OF DIFFICU 
>PRINTTAB(S8) 


ny - 
"1G - 


; EASY" 
PRINTTAB(2) 3 VERY HARD" 
INPUTDI 
DI=(11-D1)/1@ 
PRINT" {CLR}":PRINT: PRINT 
DIMA (Z,Z) 
BL=ASC("."):REM BLANK 
ES=ASC ("E") :REM ESCORT 
CO=ASC("C") :REM CONVOY 
SU=ASC ("S") :REM SUBMARINE 
EC=@:REM ESCORT CONDITION 


CC=G:2 REM CONVOY CONDITION 
SC=9:REM SUB CONDITION 


DA=1 
PRINT"PLACE CONVOY (TWO NUMBERS" 
PRINT"EACH LESS THEN"Z+1")" 


286 


27356 INPUTC1,C2 
2769 IFCi>ZORC2>Z0RC1< 1O0RC2<1THENPRINT"S 


TART AGAIN" -PRINT: GOTO2739 
27768 A(C1,C2)=CO 


2789 PRINT"PLACE ESCORT (TWO NUMBERS" 
279 PRINT"EACH LESS THAN"Z+1")" 

2898 INPUTE1,E2 

2819 IFE1>ZORE2>ZORE1i<‘ 10RE2¢ 1 THENPRINT"S 
TART AGAIN": PRINT: GOTO2899 

2828 IFA(E1,E2)=COTHENPRINT"CONVOY AT TH 
AT POSITION": GOTO289q 

2838 A(E1,E2)=ES 

2849 PRINT:PRINT"I AM PLACING THE SUBMAR 
INE” 

285@ FORT=1TO199@: NEXT T 

286G SI=INT(RND(1)¥Z) +1 

2878 S2=INT(RND(1)¥Z) +1 

2889 IFA(S1,S2) < >STHEN2869 

2899 A(S1,S2)=SU 


999 FORC=1TO02 
71i@ FORD=1TaQZ 


2929 IFA(C,D)=S8THENA(C,D) =BL 
2938 NEXT D 

2949 NEXT C 

2958 OG=9 

29468 SH=29 

2972 RETURN 


READY. 
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FIRST BULL RUN 


The First Battle of Bull Run was the first battle of the 
Civil War in the Eastern Theater. It took place in July, 
1861. This was only weeks after the city of Washington 
had been placed under a virtual stage of siege following 
the action of Virginian troops in seizing the Harper's 
Ferry Arsenal and the Norfolk Navy Yard, and cut’ the 
Baltimore and Ohio Railroad, severing the capital's only 
rail Link with the West. 
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Our battle takes place in and around the places’ where 
the original battle was fought, although the outcome is 
in your hands, rather than being dependant upon history. 


288 


The Union Army was under the control of Brigadier- 
General Irvin McDowell (1818-85), and the Confederate 
Army of the Potomac was under General Pierre Gustave 
Toutant Beauregard (1818-93). At the start of the game, 
you are allowed to choose which one you will be, with 
the computer taking the role of the opposing side: 


This is the First Battle of Bull Run, 
on July 21, 1361, the first battle in 
the Civil War in the Eastern Theater 


You can be: 
1 - Maj. Gen. Irvin McDowell (Union) 
or 2 = Gen. P G T Beauregard (Confed.) 


Enter 1 or 2? 2 


Once you have chosen your role, you are asked to 
distribute your troops across the battle zone. In this 
game, you and the computer distribute up to 100 troops 
in the battle area. As the fight gets underway, you take 
it in turns to choose a location for a battle. 


The commander with the most men in and around that 
location wins that particular battle. The Loser's'§ men 
are removed from the field completely, while the 
winner's men stay on for future battles. 
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1At the end of the game (after 18 
battles, or when either side has Less 
| than 16 troops, or one commander has 
|more than double the number his 
fopponent has) the winner is the 
wah and rather meat, y | player who has captured the most 
willing ae Pests fA | territory, not the one who has the 
: imost men still alive at the end of 
|; the day. Gruesome as that sounds, it 
1 is related to the way the way battles 
| really are fought, Lost and won. 
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Once you've: decided which role you will occupy, you have 
to distribute your troops. The thirty-six battle 
Locations all have geographical counterparts, and 
although their relationship to each other in direction 
is generally fairly correct, their distance from each 
other is not. You may wish to compare our Layout with 
a map of the actual territory, to get your bearings. 


Here are the battle sites: 


MARTINSBURG HARPER'S FERRY SHARPSBURG BALTIMORE MT AIRY BALTIMORE 
& OHIO R.A. 


WINCHESTER BALL'S BLUFF LEESBURG CENTREVILLE WASHINGTON ANNAPOLIS 


STRASBURG PARIS BLACKBURN'S THE STONE ALEXANDRIA PATUXENE 
FORD BRIDGE RIVER 

MANASSAS PIEDMONT BULLRUN SUDLEY POTOMAC CHESAPEAKE 

GAP R.A. SPRINGS FORD RIVER BAY 

BRANDY RAPPAHANNOCK MANASSAS AQUIA FREDER— SALISBURY 

STATION RIVER JUNCTION LANDING ICKSBURG 

GORDONSVILLE RAPIDAN CHANCELL- SPOTSYLVANIA WEST POINT PRINCESS 
RIVER ORSVILLE ANNE 
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You distribute your troops by entering the number you 
want in that position after each location is named: 


YOU CAN NOW DEPLOY YOUR 
TROOPS, P G T BEAUREGARD 
YOU HAVE 100 TROOPS 


MARTINSBURG? 1 
YOU HAVE 99 LEFT 


HARPER'S FERRY? 5 
YOU HAVE 94 LEFT 


SHARPSBURG? 4 
YOU HAVE 90 LEFT 


OHIO/BALT R.R.? 7 
YOU HAVE 83 LEFT 


Next, the battlefields are shown, with your troops, and 
those of your opponent, underneath a four-Letter 
abbreviation of the place name: 


MART HARP SHAR OHIO MT A_ BALT 
1 5 5 0 2 6 4 0 2 3 5 1 
WINC BALL LEES CENT WASH ANNA 
5 2 1 3 3 1 3 3 3 3 3 «6 
STRA PARI BLAC STON ALEX PATU 
hy 2 2 1 2 5 4 4 4 O 2 4 
GAPM PIED BULL SUDL POQTO CHES 
7 0 3 5 1 4 5 0 3 4 0 0 
BRAN RAPP MANA AQUI FRED SALI 
2 5 2 6 2 5 4 3 2 6 1 #0 
GORD RAPI CHAN SPOT WEST PRIN 
3 3 1 2 3 14 3 6 3 14 0 0 
P G T BEAUREGARD 100 TROOPS 
IRVIN MC DOWELL 100 
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To fight, you enter the name of a zone (the four-letter 
abbreviation is all you enter) and the computer prints 
out the full name of the area, works out how many troops 
are in and around it, then determines who has won the 
battle: 

P G T BEAUREGARD 100 TROOPS 

IRVIN MC DOWELL 100 

PLEASE SELECT WAR ZONE? BULL 

WAR ZONE = BULL RUN 

IN BULL RUN IRVIN MC DOWELL 

HAS 25 AND P G T BEAUREGARD HAS 33 

WELL DONE! 

P G T BEAUREGARD WINS BATTLE FOR 

BULL RUN 

The map is then redrawn. As you can see, the player 


(Beauregard) won this battle so his men stay in position 
while those of the computer (McDowell) 


around Bull Run, 


are removed: 


MART 
1 5 


WINC 
5 2 


STRA 
4 2 


GAPM 
T O 


BRAN 
2-9 


GORD 
3 3 


HARP 
5 O 


BALL 
1 3 


PARI 
QO 7 


PIED 
O 5 


RAPP 
0 6 


RAPI 
1 2 
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BALT 
5 1 


ANNA 
3 6 


PATU 
2 4 


CHES 
0 0 


SALI 
1 0 


PRIN 
0 0 


The computer then selects a zone, and the fight 
continues: 


I WILL FIGHT AT MARTINSBURG 
P G T BEAUREGARD HAS 10 
IRVIN MC DOWELL HAS 12 


THIS BATTLE OF MARTINSBURG WAS 
WON BY IRVIN MC DOWELL 


MART HARP SHAR OHIO MT A_~ BALT 
105 0 2 6 4 0 2 3 5 1 


WINC BALL LEES CENT WASH ANNA 
5 0 1 0 3 1 3 3 3 3 3 «6 


STRA PARI BLAC STON ALEX PATU 
4 2 0 1 0 5 0 4 4 0 2 4 


GAPM PIED BULL SUDL POTO CHES 
7 0 0 5 0 4 0 0 3 4 0 0 


BRAN RAPP MANA AQUI FRED SALI 
2 5 0 6 0 5 0 3 2 6 1 +90 


GORD RAPI CHAN SPOT WEST PRIN 
s 3 1 2 3. 32 ho 3 TF Oo 0 


P G T BEAUREGARD 90 TROOPS 
IRVIN MC DOWELL 75 


And so the game continues: 


MART HARP SHAR OHIO MT A_ BALT 
1 0 5 0 2 0 4 0 2 0 5 0 


WINC BALL LEES CENT WASH ANNA 
> 0 + 0 3 0@ 3 0 3 0 3 0 
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GAPM PIED BULL SUDL POTO CHES 
0 0 0 0 0 0 0 0 0 0 0 0 
BRAN RAPP MANA AQUI FRED SALI 
0 5 0 60 5 0 3 0 6 0 0 
GORD RAPI CHAN SPOT WEST PRIN 


At the 


0 3 0 20 10 6060 1 0 0 


P G T BEAUREGARD 38 TROOPS 
IRVIN MC DOWELL 47 

PLEASE SELECT WAR ZONE? AQUI 
WAR ZONE = AQUIA LANDING 


IN AQUIA LANDING IRVIN MC DOWELL 
HAS 0 AND P G T BEAUREGARD HAS 22 


WELL DONE! 
P G T BEAUREGARD WINS BATTLE FOR 
AQUIA LANDING 


end, when one of the terminating conditions 


mentioned earlier is achieved, the computer prints out a 
Summary of the whole event, and names the final winner: 


THIS IS HOW THE ACTION WENT: 
REMAINING TROOPS: 
P G T BEAUREGARD 38 
IRVIN MC DOWELL 47 
P G T BEAUREGARD WON BULL RUN 
IRVIN MC DOWELL WON MARTINSBURG 
P G T BEAUREGARD WON FREDERICKSBURG 
IRVIN MC DOWELL WON HARPER'S FERRY 
IRVIN MC DOWELL WON WASHINGTON 
IRVIN MC DOWELL WON SHARPSBURG 
P G T BEAUREGARD WON BRANDY STATION 
IRVIN MC DOWELL WON WINCHESTER 
P G T BEAUREGARD WON CHANCELLORSVILLE 
IRVIN MC DOWF'T, WON RBALLtS BLUFF 
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IRVIN MC DOWELIT. WON PATUXENT RIVER 
IRVIN MC DOWELL WON LEESBURG 
P G T BEAUREGARD WON RAPPAHANNOCK R. 
IRVIN MC DOWELL WON STRASBURG. 
P G T BEAUREGARD WON AQUIA LANDING 
IRVIN MC DOWELL WON PARIS 
IRVIN MC DOWELL WON BLACKBURN'S FORD 
THE BATTLE OF BULL RUN 
HAS BEEN FOUGHT AND 
WON BY IRVIN MC DOWELL 


Time now for you to do your part in recreating, and 
rewriting, history: 


196 REM FIRST BULL RUN 

26 GOSUBI3S99G:REM INITIALISE 

38 GOSUB183¢9 

46 PRINT"{CLRi "SPRINT: PRINT"STAND BY, "3 
HS", FOR A" 

28 PRINTTAB(7) 5 "SITUATION REPORT" 
6G GOSUBI3S3¢ 

76 GOSUB1126:REM PRINT OUT 

S80 IFHC<160RCC< 160RHC<CC/ 20RCCKHC/ 2ORBA= 
1STHEN7SS: REM END 

96 PRINTHSSHC"TROOPS "5;CS5CC 

196 GOSUBiI83¢ 

116 GETAS: IFAS< >" "THEN1L19 

1290 BA=BA+1 

136 GOSUB446: REM HUMAN SELECTS 
149 GOSUBI1S39 

1368 GOSUB112¢6 

169 GOSUB1839 

178 IFHC=GORCC=9STHEN7S2 

189 BA=BAtl1 

196 GOSUB226:REM COMPUTER SELECTS 
2995 GOTO39 

21GB REM KHKKKKKKKKKHHKHHK 

229 REM COMPUTER SELECTS 

2390 HT=G8:CT=aG 

2499 D=2 

2590 E=2 

269 GOSUB1S69 

2/78 IFCTSHTTHENS39 


295 


289 IFE<7THENE=E+1:GO0TO269 

298 IFD<7THEND=D+t1:GOTO25¢ 

3GG E=INT(RND(1)*¥6) +2 

319 D=INT(RND(1)*¥6) +2 

329 GOSUB1S6¢ 

339 FS=BS(D,E) 

349 FL=9:GOSUBI9GG: IFFL=1THEN289 
359 PRINT"I WILL FIGHT AT "3;BS(D,E):FS=B 
$(D,E) 

368 RS(BA)=FS 

378 GOSUB18S3¢ 

38G PRINTHS3" HAS"HT 

398 GOSUB18S3¢ 

4G PRINTCS3" HAS"CT 

419 GOSUB183¢ 


A69 GOTOS9S 
SEF REM HHEKKKKHHH KKH HHH 


446 REM HUMAN SELECTS ZONE 

450 INPUT"PLEASE SELECT WAR ZONE"3;FS 

466 IFLEN (FS) < >4THENSSS 

470 PRINT 

4390 D=9:E=4 

4990 FORX=2TO?7 

366 FORY=2TO? 

319 IFLEFTS(FS, 4) =LEFTS(BS(X,Y) ,4) THENE= 
As D=Y:PRINT"WAR ZONE - "SBS(X,Y) SFS=BS(X 
326 NEXT Y 

336 NEXT x 

349 FL=8: GOSUB1996: IFFL=1THENPRINTFS#;" H 
AS BEEN FOUGHT": GOSUB1839: GOTO459 

359 RS( BA) =FS 

569 GOSUB1969:REM COUNT SUBROUTINE 

5378 PRINT: PRINT"IN "SFS5" "3CS 

S89 PRINT"HAS"CT"AND "3HS3" HAS"HT 

379 PRINT 

699 IFHT=CTTHENPRINTTAB(S8)5"> NO BATTLE 
€";GOSUB1836: RETURN 

6198 IFHT>CTTHENPRINT"WELL DONE! ":PRINTHS 
3" WINS BATTLE FOR ",F®: PS( BA) =FS 

629 GOSUB1S36 

639 IFCTSHTTHENPRINT"THIS BATTLE OF "3;FS 


3” WAS" PRINTTAB(3)3 "WON BY "3;CSI QS (BA) = 
FS: GOTO799 
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— am em 


> HW= 


39S 


A(D-1,E-1)=@:A(D-1,E)=9 
A(D-1,E+1)=@:A(D,E-1)=9 
A(D,E+ti)=G:A(Dt1,Et1)=¢ 
A(D+1,E)=G:A(D+1,E-1)=@ 

A(D,E)=9 

RETURN 

G(D-1,E-1)=9:G(D-1,E)=9 
G(D-1,E+1)=@:G(D,E-1)=@¢ 
G(D,E+1)=@:G(D+t1,E+1)=¢ 
G(D+1,E)=9:G(Dt1,E-1)=9 

G(D,E)=9 

GOSUB1383¢ 

RETURN 

REM XXXKKKKXKKKHKKK 

REM END OF BATTLES 

PRINT:PRINT 

PRINT"THIS IS HOW THE ACTION WENT: " 
PRINT"------------------------------ 
PRINT"REMAINING TROOPS: " 
PRINTTAB(7) }H®3HC 
PRINTTAB(7) 3C#3CC 


HW=46:>CW=8: REM HUMAN, COMP. WIN 
FORZ=1TOBA 

FORT=1TOSSGG: NEXT T 
IFP$(2)<>""THENPRINTHSs " WON "5PS(2Z) 
HW+ i 

IFQ$(2Z)<>"" THENPRINTTAB(3)5C%3" WON 


"3Q@$(2Z2) >CW=CWtl 


96D 
91 
P26 
P30 
PADS 
95d 
P66 
976 


NEXT 2 

PRINTTAB(7)5; "THE BATTLE OF BULL RUN" 
PRINTTAB(9);"HAS BEEN FOUGHT AND" 
PRINTTAB(7)5 "WON BY "5 
IFCWOHWTHENPRINTCS 

IFHW >CWTHENPRINTHS 
IFHW=CWTHENPRINT"NO-ONE..." 
IFHWS>CWTHENPRINT"CONGRADULATIONS "5H 


es": 


930 
ie) 


END 
REM KEEKKKKEKKKKHEKKKEKKKKKKEKHEKHKKEHE 
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199@ REM CHECK IF BATTLE FOUGH: BEFORE 
1918 FORK=1TOBA 

1920 IFLEFTS(FS, 4) =LEFTS(RS(K),4) THENFL= 
1 

1938 NEXTK 

1949 RETURN 

APSA REM KKKKKHKKHKKHKKKK HHH 

1968 REM COUNT SUBROUTINE 

1978 HT=9:CT=9 

198@ HT=G(D-1,E-1)+G(D-1,E)+G(D-1,E+1)+G 
(D,E-1)+G(D,E) +G(D,E+1)+G(Dt1,E+1) 

1985 HT=HT+G(D+1,E)+G(D+t1,E-1) 

1999 CT=A(D-1,E-1)+A(D-1,E) +A(D-1,E+1) +A 
(D,E-1)+A(D,E) +A(D, E+1) +A(Dt1,EF1) 

1995 CT=CT+A(D+t1,£)+A(Dti,E-1) 

1198 RETURN 

LL1G REM XXXKXKKXHKHHKHKS 

112@ REM PRINT OUT MAP 

113 HC=6:CC=G:REM HUMAN, COMP. COUNT 
114@ PRINT"{CLR3"!:PRINT 

115@ FORE=2T0?7 

1168 FORJ=1TO2 

1176 FORD=2TO? 

118@ IFJ=1ANDD=2THENPRINT" "3 

1199 IFJ=1 THENPRINTLEFTS(BS(D,E),4)3"  " 
3 

126@ IFJ=2THENPRINTA(D,E)3G(D,E)$ 

1219 HC=HC+G(D,E) :CC=CC+A(D,E) 

1229 NEXT D 

1239 PRINT 

1249 NEXT J 

1250 PRINT 

126@ NEXT E 

1278 HC=HC/2!:CC=CC/2 

1288 RETURN 

L2ZPG REM HXXKXHKHHKHKKHKHKHKHK 

1386 REM INITIALIASTION 

131@ PRINT"{CLR}" 

1329 REM 

133@ DIMA(8,8),G(8,8) ,BS(8,8) , Q8(346) , PH 
36) ,R#(36) 

1349 HB="IRVIN MC DOWELL"!:C#="P G T BEAU 
REGARD" 

135@ PRINT!:PRINT 
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1369 


PRINT" THIS IS THE FIRST BATTLE OF B 


ULL RUN," 


1376 


ATTLE 


1380 


PRINT"ON JULY 21, 
IN” 
PRINT" THE CIVIL WAR IN THE EASTERN 


1861, THE FIRST B 


THEATER" 


1396 
1496 


OR GEN. 


194919 


PRINT: PRINT: PRINT 

PRINT" YOU CAN BE!" : PRINT" +. = 
IRVIN MCDOWELL (UNION) " 
PRINT"OR 2 - GEN. P G T BEAUREGARD 


MAJ 


(CONFED.)": PRINT 


1429 
1943969 


1449 
1459 


1469 
1476 


1939 
1496 


1596 
1519 


1526 
1539 


INPUT"ENTER 1 OR 2"5F 

IFF< 10RF>2THEN1429 

PRINT" {CLR}" 
IFF=2THENM$=HS: H$=CS$: CS=MH 
PRINT:PRINT"PLEASE STAND BY 
FORD=2TO?7 

FORE=2TO? 

READBS(D,E) 

NEXT E 

NEXT D 

GOSUB112@:REM PRINT OUT 
FORT=1TO39:PRINT:FORJ=1TO19G:NEXT J 


"SHS 


eNEXT T 


1549 
1559 


PRINT" YQU CAN NOW DEPLOY YOUR" 


HT=1969:CT=196:REM HUMAN TROOPS, COM 


PUTER TROOPS 


1569 
1570 


PRINT" TROOPS, "3;HS 

PRINT" YOU HAVE 198 TROOPS." 
FORD=2TO? 

FORE=2TQ?7 


PRINTBS(D,E); 
INPUTA (D,E) 
IFA(D,E) >9THENPRINT"TOO MANY TROOPS 


IN ONE AREA": GOTO1626 


1649 


IFHT-A(D,E)<STHENPRINT" YOU DO NOT H 
MANY LEFT": GOTO1629 


Be HRT OR (DED 


1669 
1676 


1689 


X=INT (RND (1) #7) 
IFCT-*X< @THENX=9 
G(D,E) =x: CT=CT-X 
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1698 PRINT"YOU HAVE"HT"TROOPS LEFT TO DE 

PLOY" 

1768 NEXT E 

1719 NEXT D 

1726 PRINT" =sssssssessssssesesssasscsaa= 
173@ IFCT>STHENG (4,5) =G(4,5)+CT 

174G BA=9 

1758 RETURN 

1768 DATA"MARTINSBURG", "HARPER’S FERRY", " 

SHARPSBURG", "OHIO/BALT R.R.","MT AIRY" 
1765 DATA"BALTIMORE", "WINCHESTER" 

1776 DATA"BALL’S BLUFF", "LEESBURG", "CENT 

REVILLE", "WASHINGTON", "ANNAPOLIS" 

1784 DATA"STRASBURG", "PARIS", "BLACKBURN’S 
FORD", "STONE BRIDGE", "ALEXANDRIA" 

1785 DATA"PATUXENT RIVER", "GAPMANASSAS R 

R", "PIEDMONT", "BULL RUN" 

179 DATA"SUDLEY SPRINGS", "POTOMAC RIVER 
", "CHESAPEAKE BAY" 


84G DATA"BRANDY STATION", "RAPPAHANNOCK 
-",;"MANASSAS JUNCTION", "AQUIA LANDING" 


18935 DATA"FREDERICKSBURG", "SALISBURY", "G 
ORDONSVILLE", "RAPIDAN RIVER" 

18616 DATA"CHANCELLORSVILLE", "SPOTSYLVANI 
A", "WEST POINT", "PRINCESS ANNE" 

1826 REM *X#K*X* 

1836 REM DELAY 

189499 FORT=1TOLSSS°NEXT T 

183598 RETURN 


READY. 
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GETTYSBURG DICE 


From July first to third, 1863, the Civil War blazed 
around Gettysburg. The Confederate Army of Northern 
Virginia was under the command of General Robert E Lee 
and the Union Army of the Potomac was controlled by 
Major-General George C Meade. 


In contrast to complex simulations of famous battles, 
this 'war game' allows you to rewrite history simply by 
throwing a few dice. 
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When the game begins, you are asked which army you wish 
to command: 


GETTYSBURG DICE 


It is July 2, 1863, the second day 
of the Battle of Gettysburg... 


Do you wish to command the Confederate 
Army of Northern Virginia - as Robert E 
Lee (1) or the Union Army of the 
Potomac as George C Meade (2)? 1 


Once you have decided, the computer explains the rules: 


In this re-enactment of the second day 
of battle, you are Robert E Lee 
in charge of the Confederates 


We will roll two dice to determine the 
outcome of the small battles for 
territories within the Gettysburg area 


You have to predict, 
whether the total of the dice will be 
below seven, or above seven (a total 
of seven is not possible...) 


Please stand Dby.... 
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And so the battle rages: 


> Battle 1 - Little Round Top 


Now, General Robert E Lee 

Do you predict the dice total will be 
A - less than seven, or 
B = greater than seven 


Stand by to fight, General... 
6 >> 10 11 5>> 7 8 9 >> 2 >> 
5 >> 9 >> 8 >> 6 >> 10 >> 5 


The total was 5 
Well done, General... 


You have defeated George C Meade 
in the Battle of Little Round Top 


Robert E Lee is leading... 
and your troops! morale is 100 % 


>» Battle 3 - Devil's Den 
Now, General Robert E Lee 
Do you predict the dice total will be 


A - less than seven, or 
B - greater than seven 


Stand by to fight, General... 
4 >> #10 8 10 >> 9>> 8 10 £10 


The total was 10 
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I am sorry, General... 
but the battle of Devil's Den 
goes to George C Meade 


Robert E Lee is leading... 
and your troops! morale is 66.66 $% 


> Battle 7 - Ziegler's Grove 


Now, General Robert E Lee 

Do you predict the dice total will be 
A = less than seven, or 
B - greater than seven 


Stand by to fight, General... 
4 >> 10 5 >> 9 10 9 8 >> +11 => 
7 5 >> . 4 


The total was 4 


I am sorry, General... 
but the battle of Ziegler's Grove 
goes to George C Meade 


George C Meade has the edge... 
and his troops! morale is 57.14 @ 


There are nine battles in all, based in and around 
actual locations at the historical site. At the end of 
the skirmishes, you are shown a summary of each clash, 
and then the result of the Battle of Gettysburg is 
determined: 
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Here's a summary of the action: 
Little Round Top 

Robert E Lee was the victor 

His troops! morale was then 109 
Cemetry Ridge 

Robert E Lee was the vitter 

His troops! morale was then 1 « 
Devil's Den 

George C Meade was the victor 

His troops! morale was then 33.33 $% 
The Wheatfield 

George C Meade-was the victor 

His troops’ morale was then 50 ¢@% 
The Peach Orchard 

Robert E Lee was the victor 

His troops morale was then 60 @% 
Culp's Hill 

George C Meade was the victor 

His troops! morale was then 50 ¢ 
Ziegler's Grove 

George C Meade was the victor 

Pis troops’ morale was then 57.14 @% 
seminary Ridge 

ynobert E Lee was the victor 

His troops! morale was then 50 ¢ 
Gettysburg 

Robert E Lee was the victor 

His troops’! morale was then 55.55 ¢ 


As you can see, Robert E Lee 
won the majority of the battles 
And so I declare Robert E Lee 
is the victor, on July 2, 1863 
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In the actual Battle at Gettysburg, 
Lee acknowledged defeat on July 4... 


The Confederates lost about 4000 men, 
18,000 were wounded, and 5,150 were 
captured or missing... 


The Unionists lost 3,155 men, 
14,529 were wounded, and 5,365 were 
captured or missing... 


When you're ready to rewrite history, enter the 
following program, and be ready to take over the role of 
commander for a few brief shining moments: 


i@ REM GETTYSBURG DICE 

26 POKES3281,9:POKE53289,5 

3@ PRINT 

4@ HU=9:REM HUMAN SCORE 

5G DIMA(9),C(9),H(F) 

68 H$="{YEL}ROBERT E LEE” 

7@ CS="{GRN}GEORGE C MEADE" 

8G PRINT"{CLR}":PRINT!PRINT 
9G PRINT"{YEL}GETTYSBURG DICE” 
198 PRINT:PRINT 

119 PRINT"{CYN}IT IS JULY 2, 1863, THE S 


ECOND DAY" 
126 PRINT"OF THE BATTLE OF GETTYSBURG... 


1396 PRINT: PRINT 
146 PRINT"DO YOU WISH TQ COMMAND FEDERAT 


E +] 

159 PRINT"ARMY OF NORTHERN VIRGINIA - AS 
ROBERT E" 

166 PRINT"LEE (1) OR THE UNION ARMY OF T 

HE 1 


178 PRINT"POTOMAC AS GEORGE E MEADE (2)" 


1890 INPUTA 
190 IFAS 1ORA>2THENI8S¢ 
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2G IFA=2THENDS=CS: CS=HS: H#=DS 

219 PRINT" {CLR}":PRINT: PRINT 

226 PRINT"{WHT}IN THIS RE-ENACTMENT OF T 
HE SECOND DAY" 

238 PRINT"OF BATTLE, YOU ARE "H% 

249 IFLEFT#(HS,1)="R"THENPRINT"IN CHARGE 
OF THE CONFEDERATES": GOTO259 

245 PRINT" IN CHARGE OF THE UNIONISTS” 
259 PRINT: PRINT 

26@ PRINT"WE WILL ROLL TWO DICE TO DETER 
MINE THE" 

278 PRINT"GQUTCOME OF THE SMALL BATTLES F 
OR" | 

289 PRINT"TERRITORIES WITHIN THE GETTYSB 
URG AREA” 

298 PRINT 

38@ PRINTTAB(7)3;"YOQU HAVE TO PREDICT” 
31@ PRINT"WHETHER THE TOTAL OF THE DICE 
WILL BE” 

326 PRINT"BELOW SEVEN, OR ABOVE SEVEN (A 
TOTAL" 

339 PRINTTAB(6);"OF SEVEN IS NOT POSSIBL 

ae | 

358 PRINT"{PUR}PLEASE STAND BY...." 

366 FORT=1T03@:PRINT 

378 FORX=1TO1@@:NEXT xX 

38@ NEXT T 

39@ FORJ=1TO9 

4G@ GOSUB42¢ 

419 GOTOS539g 

426 PRINTTAB(3)3"{OR3>* BATTLE"J3" - {WHT 
ae 

439 IFJ=1THENPRINT"LITTLE ROUND TOP" 

44@ IFJ=2THENPRINT"CEMETRY RIDGE" 

45@ IFJ=3THENPRINT"DEVIL’S DEN" 

46@ IFJ=4THENPRINT"THE WHEATFIELD" 

478 IFJ=STHENPRINT"THE PEACH ORCHARD" 


$896 IFJIJ=6THENPRINT"CULP’S HILL" 
498 IFJ=/7THENPRINT"ZIEGLER’S GROVE" 


IGG IFI=STHENPRINT"SEMINARY RIDGE" 
S18 IFIJ=9THENPRINT"GETTYSBURG" 

3268 RETURN 

3350 PRINT 

246 PRINT"{PURSNOW, GENERAL "3HS 
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pe ber) 


PRINT: PRINT" CCYN?DO YOU PREDICT THE 


DICE TOTAL WILL BE" 


JOG 


PRINTS PRINTTAB(?) 3; "¢LT REDSA - LESS 


THAN SEVEN, OR” 


378 


PRINTS PRINTTAB(?9)35"B - GREATER THAN 


SEVEN" 


2308 
39D 


669 
619 


INPUTZS 

IFZS< > "A" ANDZS< > "B" THENS8S 

PRINT: PRINT 

PRINTTAB(3)5"{GRNISTAND BY TO FIGHT, 


GENERAL....”" 


6268 
639 
6499 
659 
666 


676 
689 


FORT=1TO169@G:NEXT T 

RE=INT (RND(1)#6+RND(1)%¥6+2) 

PRINT" COR? "REs5 

FORT=1TO1396°NEXT T 

IFRE=7THEN639 
IFRE>/7ANDRND (1) >.4S5THEN6S65 
IFRND(1)>.2THENPRINT"?? "3: GOTO6é39 
PRINT: PRINT: PRINTTAB(6)3; "THE TOTAL W 


96 
AS" RE: PRINT 


78B 
4) 
718 


RAL. 


7268 
7368 
74D 
73S 
768 
7/76 
AL.. 
786 
796 
SOG 
819 
S20 


830 
349 


830 


IFZS$="A" ANDRES ZORZS="B" ANDRE >7THEN??7 


PRINT: PRINT"{LT BLUSI AM SORRY, GENE 


PRINT"BUT THE BATTLE OF "$3 

GOSUB43g | 
PRINTTAB(S) 3; "GOES TO "3C% 

CO=CcO+1 

GOTOS39g 

PRINT:PRINT"{LT BLU}WELL DONE, GENER 


PRINT"YOQU HAVE DEFEATED "3;CS&% 
PRINT" IN THE BATTLE OF "3 

GOSUB439 

HU=HU+1 

ACJ)=1 

IFJ=9THENSSS 

PRINT: PRINT 

IFCO>HUTHENPRINTCS$5" HAS THE EDGE... 


":PRINT"AND HIS TROOPS’ MORALE [5";5 


Sss 
%" 
S60 


IFCO>HUTHENPRINTINT (CO¥19999G/3)/190" 


IFHU>COTHENPRINTHS$ " IS LEADING...": 


PRINT"AND YOUR TROOPS’ MORALE 15"; 
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865 IFHU>COTHENPRINTINT (HU¥19998/3)/199" 

%? 

8796 IFCO=HUTHENPRINT"THE FORCES ARE BALA 

NCED...." 

88G H(J)=INT(HU*¥199G8/I)/199 

S98 C(J)=INT(COX1G9@G/I)/19B 

99@ FORT=1TO15G@:NEXT T 

91@ FORT=1TO3G:PRINT 

928 FORX=1TO7@:NEXT xX 

939 NEXT T 

949 NEXT J | 

95@ PRINT:PRINT"{LT GRN}HERE’S A SUMMARY 
OF THE ACTION:" 

968 FORJ=1T09 

978 GOSUB439 

988 IFA(J)=1THENPRINTHS} 

985 IFA(J)<>1THENPRINTCS3 

999 PRINT"{OR}WAS THE VICTOR" 

196@ PRINT"{WHT}HIS TROOPS’ MORALE WAS T 
HEN" 5 

191@ IFA(J)=1THENPRINTH(J)3"%" 

1915 IFA(J)<>1THENPRINTC (J) 5 "%" 

192@ PRINT"{CYN}------------------------ 


1936 FORT=1TOS@S: NEXT T 


1949 NEXT J 

1959 PRINT 

196@ IFHU>COTHENPRINT"{CYN3AS YOU CAN SE 
E, "3H 

197@ IFCO>HUTHENPRINT"THE RESULTS SHOW T 
HAT "3 C% 

1989 PRINT"WON THE MAJORITY OF THE BATTL 


ES" 
1996 FORT=1TOSS@G: NEXT T 


1199 PRINT"AND SO I DECLARE "3 

1116 IFHU>COTHENPRINTHS 

1115 IFCOSHUTHENPRINTCS 

1126 PRINT"IS THE VICTOR, ON JULY 2, 186 
=H 

1136 PRINT: PRINT 

11496 PRINT"{PURSIN THE ACTUAL BATTLE AT 
GETTYSBURG, " 
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1156 PRINT"LEE ACKNOWLEDGED DEFEAT ON JU 


LY 4..." 
1168 PRINT!PRINT 

1178 FORT=1TO5@9:NEXT T 

1189 PRINT"THE CONFEDERATES LOST ABOUT 4 
@3@ MEN, " 

1199 PRINT"18,99@ WERE WOUNDED, AND 5,15 
@ WERE" | 

1298 PRINTTAB(8)3; "CAPTURED OR MISSING... 
1218 FORT=1TO59@:NEXT T 


12294 PRINT 
1236 PRINT” THE UNIONISTS LOST 3,155 MEN, 


1249 PRINT"1494,529 WERE WOUNDED, AND 53, 36 


3 WERE" 
12356 PRINTTAB(8)3;"CAFTURED OR MISSING... 


READY. 
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ALIEN ATTACK 


Earth has fallen on hara~ times. The entire 
responsibility for defending the poor old planet against 
teeming hordes of less-than-friendly alien creatures has 
fallen on your shoulders. Again. 
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In ALIEN ATTACK, outer space Looks Like this: 


>> ALIENS ON EARTH O << 
>> SHIPS DESTROYED 0 << 


9 e oM, qe e ° @ 6 e 


Pa Sere oF 
e ) ~M, @ e e Q od BoB. 
Bak 


= 


>> Survival time: 0O << 


Earth is the nine E's up in the top right hand corner 
and the aliens are represented by the A's. The aliens 
Start the game as you see them now, up against the left 
hand side of the solar system. 


As well as aliens and the earth, this sector of space 
contains the hapless human defender (you, shown. here as 
an H), three 'droids shown as D's who are working for 
the aliens, and a number of generally nasty space-mines 
(shown as M's) which will hurt anybody or anything’ they 
come into contact with. 
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A lot happens from move to move in this game. Here's the 


scene 
moments ago: 


seven moves from the printout we Looked at a 


>> ALIENS ON EARTH O << 
>> SHIPS DESTROYED 1 << 
e AM. e e @ @ ~E.E.LE. 
oA. oM.A. ° e e oELE.E. 
] e i) Q i’) e 9 @ -E.-E.E. 
a Pe De e e @ oM,. i~] e ° e 
~D.M.A.H. ° e 6 Qo @ e @ 
6 9 Pa be ° e oM. °o i] @ ° 
eo M, oM., 8 oM, °o e t~] 
e e ma 9 e e oM. °e e ° 
e e e @ oM. e@ oM. @ .') e 
>> Survival time: 7 << 
Two moves Later and it Looks Like this: 
>> ALIENS ON EARTH O << 
>> SHIPS DESTROYED 1 << 
cd) e oM, e e e Qe oBE.ELWE. 
t) AM. e A. .-J Oe Ogre een ee 
i) oA. molar @ e @ ob.E.E. 
Dec oA. e oM. e e 6 
e oM, eb e 8 Q ° e Qe e 
e @ ° e e eM. e 9 e 
@ .-) oM. MM, ¢ oM, e e ° 
e e oM., 9 @ e oM, ° e 
e@ e o oM. c+) oM. e e 
>> Survival time: g << 
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few 


Needless to say, the aim of the game is to prevent’ the 
aliens from Landing on earth. You can only do this by 
blowing them up, which you do simply by Landing on’ top 
of them. Note that a floating mine will do you a rather 
fatal amount of harm if you happen to connect with it. 


The game iS an intriguing one, with a number of 
different possible outcomes, and with many strategies 
you can try. Sometimes the computer appears’ to 
concentrate only on getting the aliens to earth. In 
other games, you'll see that it works the three 'droids 
in concert in an attempt to crush you in a three-pronged 
attack. To make it more difficult for you, to overcome 
your natural advantage at being born on earth, you _ can 
only move up, down, Left or right. The aliens’ and 
'droids can move along the diagonals, as well as your 
four directions. Their position is strengthened further 
by their great mobility. While you can only move one 
Square at a time, 'droids and aliens can move one or two 
Squares per move, as they choose. 


Here's the first alien making it to earth in our 
demonstration game: 


>> ALIENS ON EARTH O << 
>> SHIPS DESTROYED 2 << 


° i) oM, ° e e ° e 


A.E.E 
e oA.M. ¢ ths e e Ae ee gee Oe 
@ ° e oD 6 sons ES E E 


= 


>> Survival time: 13 << 
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A few moves Later, and all I can do is sail out into the 


space 
alien 
three 


» din 


lanes again to try and get 
I intended 
using the mines 


'droids, 


doing so, 


the single remaining 
to keep away from the 
for cover (and making 


sure that I don't run into them): 


>> ALIENS ON EARTH 1 
>> SHIPS DESTROYED 3 


°e 9 oM. J e e 
~A.M. 3° o 

e e e Die D sD 

g oM. eo ° ® 9 

e e oM. oM, Q 

© o eM. ° e 6 

e e e Qe oM. Vd] 


>> Survival time: 


But as 

spot of hot water: 
¢ ghee «a w 
e e eM. e ° 
e oM., e e ~D 
e ® oM, MM, 
cd) ° oM. @ e 
° e e e M, 


<< 

<< 
« Be Backs 
+ ofs BB. 
»~H.EJE.E. 
M. @ @ Qe e 
M, ° e e e 
oM. e ] e 
oM, e e e 
oM, e Q e 

i7 «<< 


the 'droids move in, 
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I find myself in rather a 
E. 
E. 
EB. 
ALIENS ON EARTEK 1 £=<< 
SHIPS DESTROYED 3 << 


>> Survival time 


@ e eM ° r) ° ° Ae ae) eae ae 
Q AM 8 C) ° Pe ey a Ce 
° ° ry ° ° e ° Dig Bie tt EF. 


>> Survuaval time: 21 << 


ALL my efforts are in vain: 


>> ALIENS ON EARTH 1 << 
>> SHIPS DESTROYED 3 £=<< 


a. fe ele ee eS. ee Bee 
e eee. oe S a we a Bets 
i oe %, w wo ot w @ha Be B. 

i Gee See Ee tee he HE 


.] ° Q ° Qo Qo ° ° e ° Q .] 


You survived for 31 moves 
You have been killed in your 
valiant attempt to defend Earth 


Your success rating is 250 
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Here's the Listing so you can do your best to rid the 
terran skies of the Green Peril: 


1@ REM ALIEN ATTACK 

29 PRINT"{CLR}" 

38 GOTOS869:REM INITIALISE 

AG REM XXXKKKHHKKHH 

S@ REM HUMAN MOVE 

78 PRINT:PRINT"AWAITING YOUR COMMAND ’SI 
Ree 

71 POKE198,9:REM THIS PGKE CLEARS THE KE 
YBOARD BUFFER 

72 GETAS: IFAS=""THEN?Z1 

8G IFAS. >"A"ANDAS<S > "Z" ANDASBS >", "ANDAS< >" 
-"THENPRINT"SORRY BUT I DON’T COMPREHEND 
96 MO=MO+1 

198 G=HX!:F=HY 

119 @(HX,HY)=2 


126 IFAS=", "THENHX=HX-1° IFHX=S@THENHX=1:°R 
EM LEFT 

1390 IFAS=". "THENHX=HXt+1°2 IFHX=13THENHAK=12 
>REM RIGHT 

1490 IFAS="A" THENHY=HY-1: IFHY=OTHENHY=1:°R 
EM UP 

158 IFAS="2Z" THENHY=HYt1: IFHY=11THENHY=19 
7REM DOWN 


168 IFQ(HX,HY) =680RQ(HX, HY) =77THENDE=1:@ 
(HX, HY) =42:G0TO549 

17@ IFQ(HX,HY) =65THENAK=AK+1 

186 IF@Q(HX, HY) =69THENHX=G: HY=F 

198 @(HX,HY)=72 


ZIG REM KXKKKKKKKKKKKEE 
219REM ALIEN MOVE 


229 FORIJ=1TOS 

230 IFQ(A(J),B(J))<>65THENS69 

2490 Q(A(IJI), B(J))=G 

258 IFA(IJ) >9ANDB(J)<4THEN@(A(J),B(J))=69 
>AS=AS+t1:G0TO369 

268 IFRND(1)>.5THEN299 

2/68 IFA( J) =12THENSSS 

286 IFQ(A(J)+1,B(I3) )=GORQ(A(J)+1,B(3))=6 
STHENA (IJ) =A0IJ) +15 G0TOL99 
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296 
3G 


IFB(J)=10RA(J)=12THEN326 
IFQ(A(J) ,B(J)-1)=GORQ(A(J),B(J)-1)=6 


STHENB(J)=B(J)-1:G0TO349 
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IF@CA(IJ)I +1, B(3)-1) =GORQ(ACII +1, BCI) - 


1)=69THENA(IJ) =A(J)+1:B(J)=B(J)-1:GOTO349 


329 
339 
3469 
3359 
369 
37D 


389 
398 


499 
416 


42g 
439g 
44g 
45g 
46¢ 
47@ 
48g 
496 


IFB(J) =19THENS49 
IFQ(A(IJ), B(J) +1) =STHENB(J)=B(J) +1 


IFM=72THENAK=AK+1!:GOTO369 
@(A(J),B(J))=65 


NEAT J 
REM HEKKKKHKHKKKKHKKKHKE 


REM DROIDS 
FORJ=1TO3 


Q@(C(J),D(J))=G 

G=C(J) :H=D(J) 

IFRND(1)>.4THEN4S9 

IFC (J) >HXTHENC (J) =C(J)-1 

IFC (J) <HXTHENC (J) =C (J) +1 
IFRND(1)>.35THENG8S 

IFD(J) SHYTHEND(J)=D(J)-1 

IFD(J) <HYTHEND(J)=D(J) +1 

M=O(C (J), D(IJ)) 
IFM=6S50RM=690RM=77THENC (J) =G: D(J) =H: 


GOTOS16 


59g 
4G 
518 


329 
230 


349 
DUG 


3OG 
gg" 


7/728 


<n 
J3d 


39D 
6968 


6G1 


2] 
692 


693 
694 


695 


IFM=72THENQ(C(J), DCJ) )=42° DE=1:GOTOS 


BIC (IJ), D(JI))=68 

NEXT J 

REM KKEKKKKKKKKKKKKEKKHKEE 

REM PRINT BOARD 

PRINT" {CLRI"2PRINT: PRINT 
PRINTTAB(S)35 ">> ALIENS ON EARTH"AS" 


PRINTTAB(5)3">> SHIPS DESTROYED"AK" 
PRINT 

FORA=1TO19 

FORB=1TO12 

M=@(B,A) 

IF@(B,A)=@THENPRINT" {CYN}."3:GOTO62 


IFQ(B,A)=77THENPRINT"{LT RED}"3 
IFQ(B,A)=68THENPRINT"{LT GRNG"5 
IFQ(B,A) =6STHENPRINT"{WHT3"5 
IFQ(B, A) =469THENPRINT"{OR3" 5 
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618 PRINTCHRS(@(B,A))3"{CYN}."5 

628 NEXT B 

638 PRINT 

649 NEXT A 

659 IFDE=10RAS+AK=5THEN682 

668 PRINT:PRINTTAB(S)$">> SURVIVAL TIME: 
"MoO" <<" 

678 GOTO7S 

689 PRINT:PRINT"YOU SURVIVED FOR"MO"MOVE 
Sn 

699 PRINT: PRINT 

7B SC=19S9KAK-SOKAS 

718 IFAK=STHENPRINT"YGU HAVE SAVED THE E 
ARTH!!":GOTO79@ 

728 IFAS+AK=STHEN769 

738 PRINT"YOU HAVE BEEN KILLED IN YOUR" 
74@ PRINT"VALIANT ATTEMPT TO DEFEND EART 
H." 

758 GOTO799 

“38 IFAS<STHENS1@ 

“78 PRINTTAB(6); "YOU FAILED COMPLETELY" 
788 PRINT:PRINT"ALL ALIEN SHIPS LANDED © 
N EARTH.." 

798 PRINT:PRINT"YGUR SUCCESS RATING IS"S 
C 

899 END 


S10 PRINT" YOU WERE PARTIALLY SUCCESSFUL. 


829 PRINT: PRINTTAB(5S) 3 "YOU MANAGED TO DE 
STROY "AK 

839 PRINTTAB(8)3;"OF THE ALIEN SHIPS" 
848 GOTO799 

SSD REM KXKKHKHHKHHK KKK HHH 

868 REM INITIALISE 

878 POKE53281,4:POKE53289,4 

S8o REM 

899 DIMA(S),B(5),C(3),D(3),@(12,19) 
999 REM ** POSITION ALIENS ¥¥* 

919 FORIJ=iTOS 

929 READA(J),B(J) 

938 A(A(IJ),Bt(J))=65 

949 NEXTI 

959 REM ** POSITION DROIDS ** 

968 FOR J=1TOS 
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978 READC(J),D(J) 
98G @(C(J),D(J))=68 


998 NEXT J 


196966 
1916 


1626 
1936 
1949 
195¢ 
1G6G 
1976 
1989 
1G96 


1196 
1116 


1129 
1132 
1149 
113596 
1169 
1176 


1189 
EAD 


11996 
1266 


1214 


12290 
1239 


1249 


REM *%* EARTH ** 


FORJ=1ToO9 
READE,F 
Q@(E,F)=69 
NEXT J 


REM ** HUMAN *+* 


Q(5,8) =72 
HxX=S:HY=8 


REM ** POSITION MINES ** 
FORJ=1TO12 

A=INT CRND(1)%¥9) +1 
Y=INT(CRND(1)¥9) 41 
IFQ(A, Y) < SSOTHEN119096 


Q(x, Y)=77 
NEXT J 


REM ** OTHER VARIABLES ¥** 
AS=6:; REM ALIEN SHIPS SAFE 


AK=9: REM ALIEN SHIPS DESTROYED 
DE=9: REM 


Mo=9 


GOTOS46 


IFDE=1 THEN THE HUMAN 


DATA1,2,1,4,1,6,1,8,1,19 
DATA1,3,1,5,1,7 

DATA1@,1,11,1,12,1,19,2,11,2,12,2 
DATA1G,3,11,3,12,3 
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Is D 


You and your ever-patient computer take it in turn to 
roll a single dice, in this race along a numbered board. 
You move along the board the number of positions 
indicated by your dice, and then add the number’ that 
you've ended up beside to your total. 


Here's the game in action: 
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YOUR SCORE IS 0 AND MY SCGHRE [IS 0 


PRESS ANY KEY TO ROLL YGUR DTk 


mewnTrewe agee@ @ @ oe ee a a ape a & oo eo a G& a GF x ~~ & 


VW & PP 
= NM 


> YOU ROLLED 3 


anaeanmn@weeiwqaegeeq@eeqweawee@@@@ae &@ wf eceiw&we a@eeieeeses®e @& & @& @& @ & = «= 


143213423412431423412 
2 


> YOUR TOTAL IS 3 < 


NOW MY ROLL... 


## STAND BY ## 


= ep as ow @ Ge @ oe ow Go @ @ om oF @ @ @ & @ @ ww @& @& @& oo = ao @ a= @& a & a= ae & @&: ww a 


SG estes ei eee 
143213423412431423412 


> MY TOTAL IS 1 < 


And here's the end: 


## STAND BY ## 
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1 6 5 

3 

2 2 

3 4 3 3 6 4&4 3 4 

4 5 2 

3 

1 5 2 3 6 41 4 6 3 2 
4 5 >> I ROLLED 5 


SO ah ena ord a i Gr eee aa 
143213423412431423412 


gcse: Sansa ae Rae a SBOE ID we ee 


> MY TOTAL IS 10 < 
SO I'M THE WINNER 
BY 10 % 


YOU SCORED 9 


The game ends when one of the players gets a total of 
more than nine. Any player going over the end of the 
Slide automatically Loses. 


This Listing gets you in the Marran Stakes: 


16 REM MARRAN RACE 

26 REM 

38 H=98:C=9: REM SCORES 

4G H1i=G@:C1=G: REM STARTING POSITIONS 
398 ES="149321342349124931923412" 

66 PRINT"{CLRi "SPRINT: PRINT 

78 GETZ$: IFZS< >" "THEN?ZS 

86 IFH=GANDC=6THENI19 


OG PRINT: PRINT"YQOU: "3 DSS PRINTTAB(46) 5ES 
>PRINTTAB(6) 5 DS 
196 PRINT: PRINT"ME: "sASSPRINTTAB(6) 5E 


$:PRINTTAB(6) 5 AS 

116 PRINT: PRINT"YOUR SCORE IS"H"AND MY S 
CORE I5"C 

126 PRINT: PRINT"*PRESS ANY KEY TO ROLL YO 
UR DICE" 
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149 GETZ%: IFZ$=""THEN149 

159 PRINT: PRINTTAB(9) 3 "## STAND BY ##" 
16@ FORT=1TOS@@: NEXT T 

17G@ PRINT"------------------------------ 


188 FORJ=1TO03¢ 
198 D=INT(RND(1)*6) +1 
290 PRINTD3 

21@ IFRND(1)>.7THENPRINT 


226 NEXT J 
230 PRINT" +> YOU ROLLED"D 


249 PRINT"------------------------------ 
25@ H1=H1+D 

268 IFHi>21THEN75@ 

270 DS" sh waked heeded ak nue "REM 21 °. 


288 DS=LEFT#(D%,H1-1) +"%" 

298 H=H+VAL (MID#(ES,H1,1)) 

398 PRINT: PRINTDS: PRINTES: PRINTDS 

319 PRINT 

326 PRINTTAB(12):"> YOUR TOTAL IS"H"<" 
33@ IFH>STHEN669 | 

S40. PRINT (=22s-63=2555 45465 o42e ene eo ees 
358 FORT=1TO2@9@:NEXT T 

369 PRINT: PRINT 

376 PRINT"NOW MY ROLL..." 

38@ PRINT: PRINTTAB(9)3"## STAND BY ##" 
398 FORT=1TOS5S@@:NEXT T : 

4@@ PRINT"------------------------------ 
419 FORJ=1TO039 

429 D=INT(RND(1)¥%6) +1 

436 PRINTD; 

449 IFRND(1)>.7THENPRINT 

458 NEXT J 

468 PRINT" >> I ROLLED"D 

47@ PRINT" ------------------------------ 
48@ C1=C1+D 

499 IFC1>21THEN729 
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500 A =" es es we aeweaesoeweagees#ksaec3dkvtesse2@ a oc 2 e a *REM zi i e 


519 AS=LEFTS(AS,C1-1)+"5" 


2G C=C+VAL(MIDS(ES,C1,1)) 
3390 PRINT: PRINTAS: PRINTES: PRINTAS 


540 PRINT 

556 PRINTTAB(12)3"> MY TOTAL IS"c"<" 

S68 IFC>STHENG19S 

S90 PRIN taos eee ee eee tee eee oS ee eee ees 
SSO FORT=1TO299O:NEXT T 


3978 GOTO6SD 
69OG REM KHKXKKHKHKHHHX 


619 REM END OF GAME 

628 PRINT"SO I’M THE WINNER” 

638 PRINTTAB(7) "BY" INT (1999%(C-H)/C)/19 
a 

649 PRINT: PRINTTAB(7)$ "YOU SCORED"H 

658 END 

669 PRINT:PRINT"SO YOU’RE THE WINNER" 
678 PRINT 

689 PRINTTAB(7) 3 "BY" INT (199@%(H-C) /H)/19 
ae 

699 PRINT: PRINTTAB(7)3"I SCORED"C 

789 END 

71D REM XXXXKKKK 

72 REM OVER RUN 

738 PRINT:PRINT"YOU WIN BECAUSE I OVER-R 
49 GoTO76S 

759 PRINT:PRINT"I WIN BECAUSE YOU OVER-R 
AN" 

768 PRINT: PRINT"FINAL SCORES: " 

77G PRINTTAB(3) § "YOU! "H ) 

78@ PRINTTAB(4) 3 "ME: "C 


READY. 
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HALVING THE TON 


You and the stainless steel computer take it in turns to 
roll the dice, aiming for a total which exceeds fifty. 
Any number you roll (except one) is added to your total. 
If you, or the computer, are stupid enough to roll a 
one, the total is wiped out, and your tally goes back to 
zero. You must judge when to take a break from adding to 
your score, and give your opponent a chance. 


Here'S a game in action, which should make it pretty 
clear how HALVING THE TON is played: 
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Your total is 17 
>> Press SPACE BAR to roll dice 
'E' key to end turn << 


Stand by to roll... 
r 


game Gq @ m@ereeweaereer @ eae @ eweeeace @eweag @& agaeg@wewe a @& a 8. @ ca» @ av @& aw Ga a» 


You just rolled 3 
Your total is 20 


>> Press SPACE BAK tu roll dice 
'E’ key to end turn << 


I just rolled 5 
My score is {2 


I'll roll again 


aa mroeaweeqamamamwTwemeaeee@mgaee @eumwaertacoeaoeo wae ae ewer e awe @ a eG we ew a @& es a iv & 
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I just rolled 4 
My score is 19 


I'll roll again 


_ ep ewe @ @ oe ce ow ao aw ao @ @ ap ae oe oe ae > a @ ae &@ o & a= & @& ow Ge ae ao w @ a &: a a 


I just rolled 5 


My score is 54 


Well, that's the end of the game 


I guess I'm just a natural winner 
My score: 54 Your score: 20 


And here's the Listing so you can do a Little halving on 
your own: 


16 REM HAIVING THE TON 


26 REM 
398 HS=8:CS=G 


46 PRINT" {CLR}"SPRINT: PRINT 
28 IFHS>STHENPRINT: PRINTTAB(?7)5"YQUR TOT 
AL IS"HS 
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68 IFHS>S6THENS7S 

76 GETAS: IFAS< =" " THENYS 

SO PRINT: PRINT" >> PRESS SPACE BAR TO R 
OLL DICE” :FRINTTAB(12)"’E’ KEY TO END TU 
Ri <<" 

oS GETAS 

19@ IFAS< >” "ANDAS< >"E" THENSS 

110 IFAS="E" THENZSG ) 

126 PRINT"STAND BY TO ROLL..." 

1396 FORT=1TO14 

1490 A=INT(CRND(1)#6) +1 

159 JS®=RIGHTS(STRS(%) ,1) 

166 IFASC (JIS) =49ANDRND(1)>.42THENI4@ 

176 PRINTTAB(2KX) 5X 

1896 NEXT T 

1299 PRINT PRINTS So 2Sn Sess] Sessa SSS 
266 PRINT"YOU JUST ROLLED" 
216 HS=HStx 

226 FORT=1TOS@O: NEXT T 


239 IFX=1THENPRINTTAB(S)3;"SO YOUR SCORE 
IS NOW ZERO":HS= 


249 IFHS>STHENSS 

258 CC=@:REM COUNTS ROLLS 

268 CT=@:REM COUNTS THIS THROW’S TOTAL 
278 PRINT: PRINT" ------------------------ 
289 PRINT"NOW I’LL ROLL..." 

299 FORT=1TO19 

388 X=INT(RND(1)*6) +1 

31G IS=RIGHTS(STRS(X), 1) 

32@ IFASC (J#) =49ANDRND (1) >. 62THENSSE 

338 PRINTTAB(2XX) 3X 

349 NEXT T 

359 PRINT: PRINT "------------------------ 
368 PRINT"I JUST ROLLED"X:PRINT 

378 CS=CS+X 

389 IFCS>SANDX< >1 THENPRINTTAB(13)3 "MY SC 
ORE IS"CS 

399 IFCS>S@THEN4G7S 

499 IFX=1THENPRINTTAB(8)3"SO MY SCORE IS 


NOW ZERO": CS=6: GOTOS9 
4196 IFRND(1)>.89THEN4S39 
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426 


IFCS-HS > 1S50RCT< PORCC*Y 2ZORHSS>42THENPRI 


NTIPRINT"I’LL ROLL AGAIN": FORT=1TO49@6: NE 
AT: GOTO27¢ 


43g 
44g 
459 
44G 
472 
48g 
49¢ 


ME. . 


IHS 


319 
I2G 


PRINT: FRINTTAB(64) 5 
FORT=1TO49690°NEXT T 
GOTOS9 

REM HKKKKKKKKKE 
REM END OF GAME 
PRINT: PRINT 
PRINT"WELL, THAT’S THE END OF THE GA 


PRINT: PRINT 
IFCS=HSTHENS7/©6 
IFCS SHSTHENPRINTTAB(3)5"I GUESS I’M 


"YOUR TURN..." 


JUST. A NATURAL WINNER" 
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IFHS>CSTHENPRINT"IT SEEMS YOU WERE L 


UCKY THAT TIME" 


33D 
346 


IID 
36D 


378 
33h 


39h 


PRINT: PRINT 
PRINT"MY SCORE: "CS,"YOUR SCORE: "HS 


END 
REM HXHKKKXKHK 


REM DEAD HEAT 
PRINT: PRINT 
PRINT" IMPROBABLE AS IT MAY SEEM, THI 


S GAME" 


669 
9 HS 


PRINT"HAS ENDED WITH US BOTH SCORING 


READY. 
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CUBE OF ELEUSIS 


A religious cult, the Eleusian Mysteries, flourished 
around Eleusis in ancient Greece. It sprang from an 
agrarian fertility cult which originated around 600BC. 


Initiation into the cult required the newcomer to 
undergo a series of trials. In this program, we re-enact 
one such trial, in which the neophyte's mental ability 
is tested. 
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You are handed a cube, fashioned of a clear, amber-Like 
solid. You are told that the cube contains three gems 
which are invisible to the naked eye. You have to 
concentrate your mental energy beam on a particular part 
of the cube, and then deduce —- if your mental energy 
beam emerges or not from the opposite side — where the 
three gems are Located. 


I made a cube out of cardboard to write this program, as 
I found it of immense help in visualizing the position 
of the 'gems' within it. You might Like to do the same. 


The computer screen shows you a picture of the cube's 
faces 'unfolded' as follows: 


LEFT FRONT RIGHT BACK 
123 123 321 32 1 
456 456 654 65 4 
789 789 987 987 

BASE 

7 8 9 

4 5 6 

1 2 3 


You are told how many mental energy rays you have left, 
and are asked to say which face of the cube you will 
concentrate on (entering a four if you think you know 
where the gems are Located): | 


<®> YOU HAVE 20 RAYS LEFT <#> 


DO YOU WANT TO CONCENTRATE ON 

i- TOP, 2= FRONT, 3= LEFT, 4- GUESS? 1 
CONCENTRATION AIMED AT THE TOP FACE 
WHICH NUMBER (1 TO 9)? 9 
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In this case, the player is concentrating on the’ top 
face, and sending a beam through at position 9. The 
computer reports the result: 


LEFT FRONT RIGHT BACK 
tes dees S:2-e Be 4 
456 456 654 65 4 
789 789 987 987 

BASE 

7.8 9 

4 5 6 

1 2 3 


THE BEAM DID NOT EMERGE 


This suggests that at least one of the gems lies’ along 
that line from 9 to 9, top to bottom (which, as you can 
see if you visualise the entire cube, takes in_ the 
numbers 3, 6 and 9 in the front face, and 3, 6, and 9 in 
the right face). 
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The player continues, entering beams until he or she is 
confident regarding the gems' Locations: 


TOP 

1 2 3 

4 5 6 

78 9 
LEFT FRONT RIGHT BACK 
123. t2°3. 327. 32-4 
456456 654 65 4 
789 789 987 98 7 

BASE 

7 8 9 

4 5 6 

1 2 3 


<#> YOU HAVE 6 RAYS LEFT <*> 


DO YOU WANT TO CONCENTRATE ON 
1- TOP, 2— FRONT, 3- LEFT, 4- GUESS? 4 
TIME TO GUESS LOCATIONS 


ENTER CO-ORDINATES (3 NUMBERS)? 2,5,4 
>> LOCATED AT 2 5 4 << 

ENTER CO-ORDINATES (.3 NUMBERS)? 7,8,3 

ENTER CO-ORDINATES (3 NUMBERS)? 1,4,3 
>> LOCATED AT 1 4 3 << 


<< YOU FOUND 2 >> 


PRESS ANY KEY TO CONTINUE 


A few moves later, the player believes all the gems have 
been found: 
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<®> YOU HAVE 3 RAYS LEFT <#®> 


DO YOU WANT TO CONCENTRATE ON 
1- TOP, 2=- FRONT, 3=- LEFT, 4- GUESS? 4 
TIME TO GUESS LOCATIONS 


ENTER CO-ORDINATES (3 NUMBERS)? 7,8,5 
>> LOCATED AT 7 8 5 << 

ENTER CO-ORDINATES (3 NUMBERS)? 1,4,3 
>> LOCATED AT 1 4 3 << 

ENTER CO-ORDINATES (3 NUMBERS)? 2,5,4 
>> LOCATED AT 2 5 4 << 


YOU FOUND THEM WITH 3 RAYS LEFT 


THEY WERE AT: 


1 4 3 
25 4 
t 2 & 


When you're ready to be initiated into the mystery cult, 
enter the following program: 


1@ REM CUBE OF ELEUSIS 

2G DIMA(9),B(9),C(9),M(3) ,N(3),0(3) 

39 REM 

4G BE=29 

5@ FORJ=1T03 

6G Z=INT(RND(1)¥9) +1: IF A(Z) =1THEN6S 
7G ACZ)=1 

8@ Z=INT(RND(1)¥9) +1: 1IFB(Z)=1THENSS 
99 B(Z)=1 

198 Z=INT(RND(1)¥9)+1:1FC(Z)=1THENIS9 


1196 C(2Z)=1 
126 NEXT J 
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138 GOSUB738¢ 

146 GOSUBS9¢9 

15@ PRINT"<*> YOU HAVE"BE"RAYS LEFT <*>" 
169 PRINT"DO YOU WANT TO CONCENTRATE ON" 
17@ PRINT"1- TOP, 2- FRONT, 3- LEFT, 4- 
GUESS" 

189 INPUTZ 

199 IFZ<10RZ>4THENIS@ 

268 IFZ=4THENGOSUBSS¢9 

21@ IFZ=4THENS3@ 

228 PRINT"CONCENTRATION AIMED AT THE "3 
236 IFZ=1THENPRINT"TOP"$ 

249 IFZ=2THENPRINT"FRONT"3 

259 IFZ=3THENPRINT"LFT"$ 

26@ PRINT" FACE" 

276 PRINT"WHICH NUMBER (1 TO 9)" 

288 INFUTX 

29G IFX<10RX>9THEN28¢ 

388 GOSUBS9¢ 

316 FL=6 

326 IFZ=2THEN38@2 

339 IFZ=3THEN42¢ 

349 FORJ=i1TOS 

359 IFX=M(J) THENFL=1 

368 NEXT J 

376 GOTO459 

388 FORIJ=1ToO3 

399 IFX=N(J) THENFL=1 

49@ NEXT J 

416 GOTO45¢g 

428 FORIJ=i1TOS 

43@ IFX=0(J) THENFL=1 

44@ NEXT J 

459 IFFL=1THENPRINT"THE BEAM DID NOT EME 
RGE":GOTOS1¢ 

4698 PRINT"THE RAY CAME OUT AT THE "3 
47@ IFZ=1THENPRINT" BASE" 

48@ IFZ=2THENPRINT" BACK" 

499 IFZ=3THENPRINT"RIGHT" 

SOG PRINTTAB(7)3;"SECTOR "3x 

516 FORT=1T015@9:NEXT T 

S2@ BE=BE-1 

53@ IFBE>STHENI4G 

S4@ PRINT:PRINT"SORRY, YOUR TIME IS UP” 
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559 PRINT" YOU DID NOT LOCATE THEM" 
268 GOTO1119 

3/768 END 

I8G REM HHHKHKKKK 


250 REM DISPLAY 
§ PRINT" {CLR}":PRINT 


619 PRINT" TOR" 
628 PRINT" 12 3" 

639 PRINT" 4 5 6" 

649 PRINT" 7? 38 9" 

659 PRINT 

668 PRINT" LEFT FRONT RIGHT BACK" 
678 PRINT" 123 123 S22. 4 321" 
488 PRINT" 45 6 456 654 65 4" 
399 PRINT" 789 789 9s? 9 8 7" 
789 PRINT 

71i@ PRINT" BASE" 

729 PRINT" 7 8 9" 

738 PRINT" 4 5 6" 

749 PRINT" 12 3" 


439 PRINT: PRINT 
769 RETURN 
778 REM KXKXHKE 


738 REM LOCATE 
799 FORIJ=1TOS:M(J)=8:N(J)=98:0(J3) =8: NEXT 


S668 Mi=lsNi=12:01=1 
8196 FORIJ=1TO? 
S206 IFAC IJ) =1THENM(M1)=J>M1=mM1it+i1 


836 IFB(J)=1THENN(N1)=J°N1=N1+1 
8499 IFC(J)=1THENO(O1)=J:01=O01+1 


S50 NEXT J | 
S69 RETURN 

S7HB REM KHHHKHKHKHKKKKKHKKE 
S386 REM GUESS LOCATIONS 


89°96 PRINT"TIME TO GUESS LOCATIONS" 

969 PRINT 

16 CO=G 

S29 FORT=1TOS 

939 PRINT"ENTER CO-ORDINATE (3 NUMBERS) " 
949 INPUTA(T), B(T),C(T) 

P58 IFACT) =M(1) ANDB(T)=N(1)ANDC(T) =0O(1)T 
HENPRINTTAB(S) "22> LOCATED AT"S5 
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955 IFA(T)=M(1) ANDB(T)=N(1)ANDC(T)=0(1)T 

HENPRINTM(1)5N(1)30(1)5"<<":2:CO=COt1 

969 IFA(T)=M(2) ANDB(T)=N(2) ANDC(T) =Q(2)T 

HENPRINTTAB(S) ">> LOCATED AT"; 

965 IFA(T)=M(2) ANDB(T)=N(2) ANDC(T)=0(2)T 

HENPRINTM(2) §3N(2)30(2) :CO=COt1 

976 IFA(T)=M(3) ANDB(T) =N(3) ANDC(T) =G(3)T 

HENPRINTTAB(5) ">> LOCATED AT"; 

975 IFA(T)=M(3) ANDB(T)=N(3) ANDC(T) =0(3)T 

HENPRINTIMN(3) 5N(3) 5003) :CO=COF1 

9389 NEXT T 

$99 FORT=1TO1G@6:NEXT T 

169@ IFCO=3THEN197@ 

1916 PRINT!:IPRINTTAB(9)3"<< YOU FOUND"CO" 
>>"PRINT 

196298 GETAS! IFAS< >""THENI97¢E 

1939 PRINT:PRINTTAB(13) "PRESS ANY KEY TQ 
CONTINUE" 

19699 GETAS: IFAS=""THEN1I949 

1959 PRINT"{CLR}" 

1969 RETURN 

1978 REM ** END OF GAME x** 

1989 GOSUBS99 

19°98 PRINT:PRINT 

11966 PRINT"YOU FOUND THEM WITH"BE"RAYS L 

EFT" 

11198 PRINT 

1136 PRINT 

1146 FORIJ=1TOS 

1159 PRINTTAB(9) $M(J)§N(7)530(T) 

1166 PRINT 


1176 NEXT J 
1189 END 


READY. 
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BIG BLUE 
ELEPHANTS 


In this particularly heartless program, you are a big 
game hunter on safari, about 250 years in the future. 
Your quarry is the elephant, bred at this Late stage in 
time only for preservation in zoos, or for rich people 
such as yourself to shoot. 


You are actually using a new anti-elephant Laser. in 
this game, but in deference to tradition, it is called 
an ‘elephant gun'. 
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To give the elephants, which were born blue after years 
of selective breeding, a fighting chance, they are 
within a peculiar elephant pen. You cannot see _ the 
elephants. ALL you can do is fire your Laser into’ the 
compound, from one of the numbered positions around the 
edge, and then — from information as to where the Laser 
beam Left the compound - try to deduce where the 
elephants are. The only elephants you get are _ those 
whose position you can identify. 


The elephants are wearing lLaser-proof vests, which 
deflect all but shots which hit them right on target. 
When you first run the program, you'LL be asked how many 
elephants you want in the compound: 


How many elephants (2 to 10)? 5 
Elephant 1 is in place 
Elephant 2 is in place 
Elephant 3 is in place 
Elephant 4 is in place 


Elephant 5 is in place 


Next, a map of the compound from above will be shown, 
with the numbered positions around it: 


/234567\ 
o cacnease 06 
17 ooo 0 eg0 8a 24 
25 o0e0e0e@9000 32 
33 °©000000 0 40 
Wd. siaeccens AS 
49. veeseeare 56 

\556666/ 

890123 
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You then enter the number of the position from which you 
want to fire: 


From which compound gate 
would you like to fire 
your prized elephant gun? 5 


The laser beam is on its way. A fraction of a_ second 
Later it emerges from the compound, and from the number 
of the position from which it Leaves the compound, you 
have to try and work out where the elephants are 
standing: 


/234567\ 

9 occ eeeee 16 
TU: cece er aceece2e. ~24) 
25 ee eeee 32 
33.00. eee HO 
U1 se ccccee 48 
hQ ..ceecee 56 

\556666 
890123 


You stot from 5 


y -> DEFLECTED <- 
> > ZAP! And the beam flies out at 16 


You keep firing, learning more about the elephants! 
position with each shot: 
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That was shot 2 


/234567\ 


\556666/ 
890123 


You shot from 41 


> -> DEFLECTED <- 
V The beam left the compound at 58 


When you think you know where the elephants are, you 
enter a zero instead of a number: 


From which compound gate 
would you like to fire 
your prized elephant gun? 0 


ENTER GUESS 1 ? 37 
ENTER GUESS 2 ? 43 
ENTER GUESS 3 ? 20 
ENTER GUESS 4 ? 22 
ENTER GUESS 5 ? 36 
Guess number 2 is correct 
Guess number 3 is correct 


You've found 2 elephants... 
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Eventually, 


if you haven't found them all, you may want 
to give up. You do this by entering -1 for your shot: 


That was shot 6 


9 
17 
25 
33 
44 
49 


From which compound gate 


/234567\ 


\5566 
890123 


° 


66/ 


16 
24 
32 
40 
48 
56 


would you like to fire 


your prized elephant gun? 


- 1 


The elephants were hiding at: 


21 


Here's 


35 


28 


numbers within it: 


43 


20 


343 


a view of the compound from above, 


showing the 


Your laser beams follow strict rules when bouncing off 
the elephants' hides. If a Laser hits an elephant dead 
on, it will be absorbed, and not emerge from the 
compound at all. If it comes within one square of an 
elephant, the Laser beam will be deflected through 90 
degrees. Therefore, it there was an elephant at Location 
27, and you fired from 17, the beam would go to 18, then 
be bent through S90 degrees to 10 and emerge from the 
compound at location 2. By Looking at the following 
sample shots, and noting especially the direction of the 
arrow heads (V meaning it is travelling downwards, < to 
the left, > to the right and * travelling upwards) as 
well as words Like DEFLECTED, you should be able to work 
out just how the beams behave: 


/234567\ 

Ge outa HO 
17 eeoaeovee 24 
25 eococvecece 32 
23 ake sass. 40 
hd wc cceece 48 
49... 56 

\556666/ 
890123 


You shot from 41 


> -> DEFLECTED <- 
V The beam left the compound at 58 


Here's the Listing so you can tackle the elephants’ on 
their home turf: 


19 REM BIG BLUE ELEPHANTS 

26 GOSUB1179:REM INITIALISE 

38 GOSUB959:REM PRINT COMPOUND 

46 GOSUB799:REM ENTER MOVE 

59 IFM=9THENGOSUB129: GOTO3@:REM GUESS 
6G IFM=-iTHEN349:REM GIVE UP 

76 GOSUBS59:REM PRINT COMPOUND 
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8G GOSUB429: REM RESULT 
POG FORY=1TO1966: NEXTY 


196 
191 
1635 
110 
126 
1369 
149 
159 
149 
1768 
189 
192 
286 
219 


PRINT: PRINT"HIT RETURN TO CONTINUE" 
GETGS: IFGS< >CHRS(13) THENIG1 

GOTO3¢ 

REM XX KHHKHKKHHK HHH EHH 

REM ENTER GUESS 

PRINT 

FORJ=1TOE 

PRINTTAB(J)"{CYN}ENTER GUESS" J 
INPUTC (J) 

NEXTJ 

SC=G 

FORJ=1TOE 

FORK=1TOE 

IFC(3)=B(K) THENPRINT"GUESS NUMBER"J" 


IS CORRECT": C(J)=6:5C=SC+r+1 


2208 


2360 
246 


23a 
268 
2/76 


NEXTK 

NEXT J 

PRINT 

hM=-99 

FORY=1TOSS6:NEXTY 

IFSC< >STHENPRINT"{GRNYOU’VE FOUND"S 


C™"ELEPHANTS...” 


239 
296 


38GB 
316 


32g 
33g 
34g 
3528 
36 
372 
38 
39g 
4G@ 
41 
426 
43g 
446 
452 
468 


FORY=1TO26966°NEA4T ¥ 

IFSC< >ETHENRETURN 

PRINT" YOQU HAVE FOUND THEM ALL!" 
PRINTS PRINT"WELL DONE!" 

END 

REM HEKHKEKHKKHHKHKHK 

REM GIVE UP 

PRINT" THE ELEPHANTS WERE HIDING AT:" 
PRINT 

FORJ=1TOE 

PRINTB(J) 5 

NEXT J 

END 

REM KHHKHHHH 

REM RESULT 

Q=-1 

IFM< 9THENG=8 

IFM>S6THENQ=-8 
IFM=9ORM=170RM=250RM=330RM=410RM=499T 


HEN@=1 
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476 
EFT 
439 
496 
38D 
I1G 
328 


IFM+Q< 1GORM+tQ>SSTHENPRINT" THE BEAM L 
THE COMPOUND AT"M+tQ:M=-99: RETURN 
FL=9 

FORT=1TO19 

IFD(T) =M+QTHENFL=M+Q 

NEXT T 

IFFL< >STHENPRINT"ZAP! AND THE BEAM F 


LIES OUT AT"FL:M=-99: RETURN 


33a 
349 


M=M+Q 
REM DELETE NEXT FOUR LINES WHEN YOU 


GAIN PROFICIENCY 


ake} 7) 
369 
2768 
389 
IPD 
59D 


IFQ=1THENPRINT"> "3 

IFQ=-1THENPRINT" _"$ 
IFQ=STHENPRINT"V "3 

IFQ=-8THENPRINT" “*"5 

REM ¥*% ABSORB *** 
IFA(M)=9THENPRINT" ...ABSORBED...":M 


=-99:> RETURN 


619 
629 
639 
649 
6359 
666 


2] 
679 


REI **%* REFLECT *** 

M=75Y=-9 

IFQ=8STHENY=9 

IFQ=-STHENX=-7: Y=-9? 
IFQ=1THENX=-7:Y=9 

IFM+X< 1ORM+xX >6490RM+Y< 1LORM+Y >64THENSS 


IFACM+%) =SANDA(M+tY) =STHENPRINT" >>RE 


FLECTED<< "2: Q=-Q:GOTO479 


639 


699 
78D 


REM *¥** DEFLECTED *** 
IFM+xX< LORM+X > 649 THENZ19 
IFACM+%) =9THENPRINT" @> DEFLECTED < 


@" :GOTO/49 


716 
729 


IFM+Y< 1ORM+Y >64THENS7S 
IFA(M+Y)=9THENPRINT" **%> DEFLECTED < 


¥¥" 3 GOTOV6SG 


736 
7468 


745 
7368 
769 
763 
778 


789 
79D 


GOTO476 

IFABS (@) =STHENQ=GQ/8: GOTO7S9 
IFABS (@) < >STHENQ=Q%8 

GOTO476 

IFABS (@) =STHENQ=-Q/8: GOTO/?76 


IFABS (@) < >STHENQ=-Q%8 
GOTO497¢ 


REMEXKKEKKKKKKKKKKKKKE 
REM ENTER MOVE 
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898 PRINT"{LT GRN3}FROM WHICH COMPOUND GAT 
ee 

S19.PRINT"WOULD YOU LIKE TO FIRE" 
829 PRINT"YOUR PRIZED ELEPHANT GUN" 
83@ REM YOU CANNOT SHOOT FROM 1 OR 8 
S49 REM OR FROM 57 OR 64 

858 INPUTM 

S66 IFM< 1 THENRETURN 

878 FL=9 

889 IF (M<1@0RM>55) ANDM< > LANDM< >SANDM< 957 
ANDM< >64THENFL=1 

899 FORT=1TO19 

999 IFM=D(T) THENFL=1 

91@ NEXT T 

926 IFFL=@THENS5S@ 

938 RETURN 

PAD REM KHKKHKHKKIHHHKHHEK 

959 REM PRINT COMPOUND 

968 PRINT" {CLR}" 

979 MO=MOo+.5 

989 PRINT: PRINT: PRINT 


999 IFINT (MO) < SPRTHENPRINT"CGRNG THAT WAS 
SHOT" INT (MO) 


995 PRINT: PRINT 


1999 PRINT"{CYN} N239567/" 
1919 PRINT" ono seee” 

1928 PRINT" "5 

19396 FORT=1TOS 

164G@ PRINT" ...,.-.-.."$3STIRS(D(T+S) ) 
19356 PRINT" "STRS(D(T))5 

1969 NEXTT 

197G PRINT" .2ceeees DO" 

1984 PRINT" ceoeeneee 

1999 PRINT" N336666N" 

1196 PRINT" BY9G125 " 


1119 PRINT:PRINT 

1129 PR=Moa | 

1139 IFM<>-99THENPRINT"{PUR}YOU SHOT FRO 
M"M:PRINT | 

1149 RETURN 

1159 END 

11 6G REM KEKKKHHKEKKKH KEK 

1179 REM INITIALISE 

1189 POKE53281,9:POKE53289,9 
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1199 
1296 
1214 
1229 


1239 
1249 


19)" 

1245 INPUTE 

IFE< 20RE >1@THEN1245 
1268 DIMA(64),B(E),C(E) 
FORZ=1TOE 

M=INT (RND(1)*¥29) +18 


1259 


1276 


1280 


1296 
1366 
1319 
13296 
1339 
1346 
13398 
1369 


1379 
1389 


1399 
14969 
194914 
1426 
14936 


1431 
1449 


1456 
14646 
19476 


1996 


PRINT" CCLR?" 

DIMD (39) 

FORT=1TO3S9 

READD(T) 

NEXT T 

PRINT"{YEL3SHOW MANY ELEPHANTS 


FL=9 


IFA(M) < >OTHEN1289 
FORT=1TO39 
IFM=D(T) THENFL=1 
NEXTT 


IFFL=1THEN1289 


PRINT 


(2 TO 


PRINTTAB(Z) "ELEPHANT"Z"IS IN PLACE” 


B(Z)=M 
A(M) =9 
NEXT2Z 
M=-99 


MOo=9 
PR=9 


PRINT: PRINT"HIT A KEY” 


GETGS: IFGS=""THEN1I431 
RETURN 


DATA17,25,33,41,49 
DATA16, 249, 32,49,48 
DATA19,11,12,13,14,15 
1489 DATA1IS, 26,34,42,59,51 
DATAS2,53,54,55,47,39 
1599 DATAS1,23 


READY. 
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ALPHABETICA 


This is a two-part game. The first part is very simple, 
‘but the speed with which you solve the easy probLem (to 
work out which Letter of the alphabet the computer is 
thinking of) dictates how many moves you'LL have to work 
out the solution to the second part. 


i PY . 
we 


oe D, 


The second is a game somewhat Like Invicta's Mastermind, 
except that instead of you having to guess a code of 
colors, the code here is made up from the first six 
letters of the alphabet. 


The code could be ABCD, DEA or even FFFF, or any other 


of the enormous number of possible combinations of those 
six Letters. 
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After: you've entered your guess, the computer will rate 
your answer. A plus sign (+) is awarded for each Letter 
which occurs in your code and in the computer's’ code, 
but not in the right position. So if the computer’ was 
thinking of ABCA and you entered CEEF, you would be 
awarded one + sign. A correct Letter in the correct 
position gains you an asterisk (*). So, if you had 
entered AEEF when the computer was thinking of ABCA, you 
would be awarded an * as a result. 


Here's the first part of the program in action: 


We'll start our game of ALPHABETICA by 
getting you to guess the letter of the 
alphabet I'm thinking of. The quicker 
you guess it, the more chances you'll 
have to solve the problem posed in the 
second part of the game... 


HRERKRRBREKKRKERAEKRRKKKKRRARRRREERRRRRKRAR KKK AR 


OK, enter your guess number 1 ? A 
HREARESRERARRHRERERARRRHRERRRRRRBRERB EGS 


No, it's not A 
Try closer to the end 
of the alphabet 


OSE SEE ESCESECESLESESLESE SESE ESSE EES SY 
OK, enter your guess number 2 ? Z 
EHRERHKHKHHERHKHELHARARERHRRARERREEEEE EEE 
No, it's not Z 


Try closer to the start 
of the alphabet 


HKKTKERKKRKEKKEKHKRKTRERKRFKKKRRKFRSKRRKKRREAE HEE 


OK, enter your guess number 3 ? G 


HREFKRERERRKTRRERKARRTAFRKKRKTRFRRFRERRKKRRKRKAR EE 
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No, it's not G 
Try closer to the end 
of the alphabet 


HRERARERFRRKLRRARFKKREREFRAFRERRRPRRATTRERAE FEE 


OK, enter your guess number 4 ? M 


RYESRRRAKRRRTHKARRRKRRRATAKKRERRRARKL RE RAFF FEF 


No, it's not M 
Try closer to the start 
of the alphabet 


HEX TRRARRKRRRRKKFKARRRRRRRRPRE KEK KTRRRERER ST H 


OK, enter your guess number 5 ? J 


KREKRKFRKFRRRAFRRKREKKRERKRERRRRKRRCRL KARR ATRRRE 


No, it's not J 
Try closer to the end 
of the alphabet 


TERS SE SES ECESESE CS SESE SS ESSSSCSS EL SESE SS | 
OK, enter your guess number 6 ? K 


No, it's not K 
Try closer to the end 
of the alphabet 


KKKEKKKKKKKKKLKKFTHFRKFRLHKRKRKKRKKRYERRE LSS & 


OK, enter your guess number 7 ? L 
Yes, youfre right. I was thinking of L 


KFKFEKFKFKKKKKKTRKRKRKKKRHRKRRRRERRRRARKRRRAZES 


It took you 7 guesses 


HRAEKRKKKKERFRTKRKKRRKKRKARKFRKKRKRRRRRKARUWA AEF 
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That means you have 13 guesses to solve 
the second problem I'm going to pose 


And this is the second, much harder, part: 


HREKFHFKRAKRHKEKRK HARK KTHRKKRRRRRKRERFRRARRREE 


In the second part of ALPHABETICA, you 
have 13 guesses to work out a code made 
up of four letters - chosen from 

A, B, C, D, E and F 


REKKERHEFRRFFRRKARRRRKKRRET RTF RTRRFRERKRRRRRERRR 


You'll get a+ for each letter which is 

in the code, but in the wrong position, 

and a * for each letter which is right, 
in the right position 


RRKKKRKRRFAFR RR RK FRBFRRRRRRERRRRRTFRRKEREKRE 


Choose from: A BCOD EF 
Enter guess number 1 

? ABCD 

ABCD SCORED + + 


Enter guess number 2 

? BCDE 

AR*se*ar* era *se*e°B*8*8*8*R°* 
BCDE SCORED + + 


Enter guess number 3 


? ABEF 
FR*SP BS B*B*TR*B*RB*EOW BYERS“ E® 


ABEF SCORED + + + 


Enter guess number 4 


? EFBA 
FEF B*R*B*B*° BBY BBO O*B*~B® 


EFBA SCORED #* # # 
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Enter guess number 5 
? EDEBA 
EDBA SCORED #® *® # 


Enter guess number 6 
? FDBA 
FDRA SCORED #* # 


Enter guess number 7 
2 FRAC 
EEBC SCORED *® # # 


Enter guess number 8 


? EEBA 
Ae" B°R*R*RO°R*ROR*A THREE 


EEFBA SCORED # # *# * 


You did it in 8 guesses! 


The code was EEBA 


HEKKEEKRKKFKKLKKERLFRHKKKKFKRFKTKKKKREKRHRKRKE EEE 


Stand by 


This Listing will allow you to challenge your 


for a new game of ALPHABETICA 


to a round or three of ALPHABETICA: 


16 
26 
36 
468 
rs) 


REM 
REM 
REM 
REM 
FEM 


KHKKKKKKKEKKKKEKKKEE 
ALPHABETICA 

SECOND PART OF GAME 
WRITTEN BY. D C OWEN 
KKKKKKKKEKKKKEKKKEKEK 
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computer 


6G PRINT" {CLR}":POKES3281,9: POKE5S3289,15 
76 D=G:C=1 | 

89 A=65+INT  (RND(1)¥26) 

9G PRINT: PRINT 

196 PRINT"WE’LL START OUR GAME OF *ALPHA 
BETICA’ BY" 

119 PRINT"GETTING YOU TO GUESS THE LETTE 
R OF THE" 7 
126 PRINT: PRINT"ALPHABET I’M THINKING OF 
. THE QUICKER" 

139 PRINT: PRINT"YOU GUESS IT, THE MORE C 
HANCES YOU’LL" 

1499 PRINT: PRINT"HAVE TO SGLVE THE PROBLE 
M POSED IN THE" 

158 PRINT: PRINTTAB(7) "SECOND PART OF THE 
GAME..." 

169 GOSUBS4¢ 

179 PRINT"{GR}0K, ENTER YOUR GUESS NUMBE 

R"C 

175 INPUTZS 

199 IFASC (Z%) =ATHEN279 

298 GOSUB9S4¢g 

219 PRINT"{CYNINO, IT’S NOT "32% 

229 PRINTTAB(4)3;"{PUR} TRY CLOSER TO THE 


239 IFASC (2%) <ATHENPRINT "END" 

235 IFASC (ZS) >ATHENPRINT"START” 

249 PRINTTAB(12)3;"OQF THE ALPHABET" 

250 C=Crtl 

268 GOTO16¢ 

276 PRINT"{YEL}YES, YOU’RE RIGHT. I WAS 

THINKING OF "5CHRS(A) | 

2898 GOSUB94¢ 

2998 PRINTTAB(S)$;"{GRNIJIT TOOK YOU"C"GUES 

SES" 

~88 GOSUBS4S 

319 CH=26-C 

3296 PRINT"{LT GRN3THAT MEANS YOU HAVE"CH 
"GUESSES TO SOLVE" 

538 PRINT" THE SECOND PROBLEM I’M GOING 
TO POSE" 

346 GOSUB9S4S 
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PRINT"{LT RED}IN THE SECOND PART OF 


ALPHABETICA, YOU" 


36@ PRINT"HAVE"CH"GUESSES TO WORK OUT A 

CODE MADE" 

378 PRINTTAB(4) "UP OF FOUR LETTERS - CHO 
OSE FROM" 

388 PRINTTAB(19) "{YEL3A, B, C, D, E AND 

_ 

399 GOSUBS4¢g 

49@ PRINT"{WHT}YOU’LL GET A + FOR EACH L 


ETTER WHICH IS” 


419 


PRINT" IN THE CODE, BUT IN THE WRONG 


POSITION," 


425 


PRINT"AND A * FOR EACH LETTER WHICH 


IS RIGHT, " 


436 


44g 
459 


469 
47g 
48g 
49g 


ped 25 9] 
319 


329 


3308 
349 
ves bes 
768 
3/8 
33¢G 
396 
6968 
619 
6295 
636 
6459 
659 
6698 
676 
636 
696 
78D 


71G 


PRINTTAB(11)"IN THE RIGHT POSITION” 
GOSUB949 

DIMA(4) ,B(4) 

YS= oo 08 


FORZ=1TO4 

B(Z)=INT (RND(1)*6+1) 
YS=YS+CHRS(69+B(Z) ) 

NEXTZ 

L=9 

PRINT" {GRNSCHOOSE FROM: ABC DE F" 
L=L+1 

PRINT" {CYNSENTER GUESS NUMBER"”L 
INPUTAS: RS=XS 

IFLEN (XS) < >94THENSS@ 

K=9 

J=K 

FORZ=1TO4 
A(Z)=ASC (XS) -64 
B(Z)=ABS(B(2Z)) 
IFA(Z)<>B(Z) THEN669 
K=K+1 

A(Z)=4 

B(Z)=-B(2Z) 
XS=RIGHTS (XS, (LEN (XS) -1)) 
NEXKTZ 

FORH=1TO4 

zZ=1 

IFACH) <>B(Z) THEN?749 
J=j+i 
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7268 
732 
748 


Pant] 
768 


B(Z)=-B(Z) 

GOTO7S9 

IFZ<4THENZ=2+1: GOTO7?9S 

NEXTH 

PRINT"{LT GRNJXCX¥CKCKCKXCKCKCKCKCKCKE 


HOC KCKEC KC KC KCKCKCKC " 


778 
7836 
79D 
39G 
81¢ 
826 
330 
846 
358 
860 
87h 


8389 


PRINT" {YEL3 "RS" SCORED "35 
IFK=6THENS29 

FORZ=1TOK 

PRINT"{OR} *"5 

NEXTZ 

IF J=GTHENS6SD 

FORZ=1TOJ 

PRINT" {ORs +"5 

NEXTZ 

PRINT: PRINT 

IFK< 4ANDL< =CHTHENS39 
IFK=4THENPRINT"{WHT}YQU DID IT IN"L" 


GUESSES!" 


39d 
PGS 
P30 
946 
969 


PRINT"THE CODE WAS ";YS 

GOSUB?S495 

RUN 

FORQ=1TO01269: NEXTQ@ 

PRINT " COVYN 5 KHXKKKKKKKKKKEKKKKKKKKKEKKER 


KKEKKKKKKKKKKHKHKE" 


976 
73a 


PRINT 
RETURN 
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BURSTING CLOUDS 


Once again you are being bombarded by aliens. But this 
time, the aliens have banded forces with other aliens, 
so a multitude of strange races are about to rain down 
upon you. 


You are in an armored tank on the earth's crust. 


Beware. Not only do the aliens move slowly downwards, 
but they can also move horizontally once they've Landed, 
and may even burrow into the ground. Beware of the acid 
rain. As you rid the sky of one race, a new, different 
one will replace it. Some of the races do not move 
downward, but are happy instead to move across the 
screen, firing down at you. 


Your controls: 
J — rotate tank Left 
K — rotate tank right 


Spacebar -— fire your cannon 


Beware of the acid rain as you defend our earth. 


O@ PRINT"{CCLRSPLEASE WAIT FOR THE COUNT T 
O REACH 715’." 


1 FORX=192TO266:PRINTX-19135" "; 
2 FORY=6T063:READA: POKE2S48+K¥649+Y , AS NEX 
TSNEXT 


5 POKE659, 129 
6 $C=1924!:CL=55296 
7 QW=49:GV=1 
19 POKES53281, 9: POKE5S3289, 4: PRINT" {CLR}" 
29 Q=3:W=5 
POKE2@47, 224:X=128 
78 V=53248! POKEV+t21, 255! POKEV+29, 255 
89 POKEV+46, 15: POKEV+45, 2: FORA=1TU6! POKE 
V+A+38,A!:NEXT 
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19@@ PRINT"{CHOME} {CUR DN3<{CUR DN3{CUR DN3 
{CUR DN}ICUR DN 3 {CUR DN3 {CUR DN;SCCUR DN3 
{CUR DNS{CUR DN3{CUR DN}{ CUR DN} {CUR DN} 
{CUR DN}{CUR DN} TCUR DNF {CUR DNCCUR DN: 
{CUR DN3{CUR DN} {CUR DN CRVS ONS CGY 33 
1190 FORA=1°9494TO2923:POQKEA, i469: FOKEAtS927 
2,9: NEXT: Z=3:AL=227:GOTO114 

11i2 IFAL=223THENAL=232 

113 IFALSS36THENS SOS 

114 PORKE2ZS46, 228: FORA=2949TOQ29495:POKEA,A 
Li NEXT . 

115 FORA=1TO6°FL(A) =i NEXT: S=9 

116 IFQW? 126THENQW=129 

46 POKEV+15, i97:POKEV+i4, xX 

130 B=609:D=89:F=19G6)H=129: J=H149°L=169 
1946 A=INT(RND(1)*¥2969) +39: C=INT(RND(1)*¥2¢9 
G)+3G°E=INT (RND (1) #299) +39 

139 GH=INT(RND(1)¥298) +39: I=INT (RND(1)*29 
G)+ 3G i K=INT (RND (1) #269) +39 

49° GOTC2994a 


Saga REM ¥¥ INPUT ** 
S81 IFAS=@ANDRND (1) >. STHEN69ES 

S92 IFAS>1THENé6929 

S93 IFSA=@ANDRND(1)>.8THEN6599 

544 IFSA>1THEN6529 

595 IFAA=GANDRND (1) >.8THEN6690 

SG46 IFAA+1THENG42S 

387 IFSS=GANDRND (1) >. STHEN6799 

548 IFSS>1THENG?729G | 

Sig GETAS 

Sil POKEV+12,19:POKEV+t13,19 

5i2 IFS=6THENG=Q@t2:W=Wt2:AL=ALt+1:GO0TO112 
515 IFAS=" "THENIOSE 

S2G IFAS="J"ANDZ=1THENX=X-19 

539 IFAS="J"ANDZ=3THENZ=2: POKE2947, 226:G 
OTO49¢G 

S49 IFAS="K" ANDZ=1 THENZ=2: POKE2947, 226:G 
OTO69¢g 

S59 LFAS="K"ANDZ=3THENX=Xt1@ 

5469 IFAS="J"ANDZ=2THENZ=1:POKE2947,225 
S78 IFAS="K"ANDZ=2THENZ=3! POKE2947, 224 
698 IFX<23THENX=23 

619 IFX>255THENX=255 
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O20 
reo k in ©] 
a) 
7OSD 
71G 


FOKEV+14, xX 
JU=PEEK (V+31) ANDL28 


JP=PEEK (V+31)AND128: IFJP=123THEN/9S9S 
JT=PEEK (V+39) AND128 


JK=PEEK (V+39) AND128!: IFJK=128THEN79@@ 
ONWEGOTO2071, 2147, 2211, 2291, 2376, 244 


6 


1669 REM *** FIRE CANNON X¥** 


1691 


POKES9276,9: POQKES4296, 15: POKES42?/?7, 


138: POKES4276, 129: POKES4273,17 


1995 
1916 
19629 
1921 
1925 
1G26 
1926 


P=PEEK (V+39) AND464 

P=PEEK (2047) 

IFP=225THEN1199 

IFP=226THEN1 299 

POKE2946, 228 

IFX+16>=255THENI9S31 
FORR=%+16TO255STEPS: POKEV+t13,198:PO 


KEV+12,R 


1929 


M=PEEK (33278) AND64: IFM=64THENMM=1:°G 


OTO3G9D 


1936 
1G31 
1932 
1933 
1934 
1940 


19356 
119g 


1195 
1116 


NEXT 

POKEV+16, 64: FORR=16TO6SSTEPS 
POKEV+13, 198:POKEV+12,R | 
M=PEEK (V+32) AND64: IFM=64THEN3S9GG 
NEXT! POKEV+16,9 
POKEV+12, 19: POKEV+13,19 

GOTO51¢ 

POKE 2946, 229 

IFX-19< 2GTHENS1G 
FORR=X-1@TO2@STEP-5!POKEV+13,196:PG 


KEV+12,R 


1126 


M=PEEK (V+30) AND64: ITFM=69 THENMM=2: GO 


TO3GBS 


1134 
1149 
1159 
1299 
1265 


NEXT 
POKEV+12,196:POKEV+t13,1¢2 
GOTOS1¢ 

POKE2946, 239 
IFX=255STHENK=259: POKEVt14,x% 


1219 FORR=199TOSOSTEP-5: POKEV+12,X+3:POK 
EV+13,R 
1213 M=PEEK(V+3@) AND64: IFM=64THENMM=3: GO 
TO3SBB 


12135 NEXT 
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1226 


1236 
28GB 


2916 
2IG28 


25368 
2A31 
2548 
29350 


285% 
2671 
2936 
2d9°R 
21968 


2126 
2136 


2149 
2145 
2146 

2147 
213596 
2169 
2178 
2136 
2196 
22066 
22065 


22196 
2211 


2226 


22368 
2249 


22568 
2269 


2276 
2289 


2290 
2291 
23108 
2320 
2332 
23468 
2358 


POKEV+12, 19: POKEV+13,19 
GOTOS1¢ 

REM **% MOVE ALIENS ** 

IFFL (1) =1THEN297@ 
IFA>XTHENA=A-@ 

IFAS XTHENA=A+G 
IFA>255THENA=255 
IFB>=2G9THENB=29G : GOTO2969 
B=B+W 


eet tba: POKEV+1,B 


OTO59¢g 

WE=G 

IFFL (2) =1THEN2146 
IFC>*XTHENC=C-@ 
IFC<XTHENC=C+@ 

IFC >255THENC=255 
IFD>=299THEND=29@9: GOTO2145 
D=D+W 

POKEV+2,C:POKEV+3,D 
WE=2!:GOTO5@3 

WE=a 

IFFL (3) =1THEN2219 
IFE>XTHENE=E-@ 

IFE< XTHENE=E+Q 
IFE>255THENE=255 

IFF >=269THENF=29@6: GOTO2295 
F=F+W 

POKEV+4,E:POKEV+t5,F 
WE=3:GOTO5¢5 

WE=G 

IFFL (4) =1 THEN2299 
IFG>XTHENG=G-@ 

IFG< XTHENG=G+@ 
IFG>255THENG=255 
IFH>=2@9THENH=29@: GOTO2289 
H=H+W 

POKEV+6, G: POKEV+7,H 

WE=4: GOTOSa7 

WE=G 

IFFL (5) =1THEN2375 
IFI>XTHENI=I-@ 
IFI<XTHENI=1+@ 
IFI>255THENI=255 

IF J >=29GTHENIJ=296: GOTO2379g 
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2369 
2376 
23735 
2376 
23389 


2396 
2498 


Z419 
2429 
2436 
2446 


2445 
2446 


24569 
IAGO 


OG1G 


J=J+W 

POKEV+8, I: POKEV+t9,J 

WE=5: GOTOS8¢ 

WE=G 

IFFL (6) =1THEN2445 
IFK>XTHENK=K-@ 

IFK< XTHENK=K+@ 
IFK>255THENK=255 

IFL >=299THENL=296: GOTO2449 
L=L+W 
POKEV+19,K:POQKEV+11,L 
WE=6: GOTOS93 

WE=9 

GOTOZSag 

REM *% ALIEN HIT *** 
A1L=PEEK (V+39) ANDI! IFA1=1THENPOKE294 


§,231:U=1:GoToO4gee 


3928 


A2Z=PEEK (V+tS3@) AND2: ILFA2Z=2THENFOKEZS4 


1,231°U=2: GOTO4¢9995 


S3H3B 


AS=PEEK (V+34) AND4: IFAS=4THENFOKE2S4 


2, 231:U=3:G0TO49992 


284IAG 


A4=PEERK (V+39) ANDS: IFAS=STHENPOKE2S4 


3, 231:U=4:GOTO4G9e 


3959 


AS=PEEK (V+39) AND16: IFAS=16THENPOKE2 


944,231:U=5: GOTO4999 


3H96D 


A6=PEEK (V+39G) ANDS2: IFA6=S2THENPOKEZ 


G45,231:U=6: GOTO465G 


3O78 
3936 
3BODG 
4GGH 
4986 
4607 


TFMM=1 THENIG3SS 
IFMM=2ZTHEN1L139 
IFMM=S3THENL 215 
REM *%* IF ALTEN HIT THEN: X** 


FORT=1TOGS6°: NEXT 
POKES49276,9:POKES54296, 15: POKES42?7/?7, 


1350: POKES4276, 129: POKES4273,199 


AGiGg 


IFU=1THENPOKEV, 49: POKEVt+1,190°>U=9°2FL 


(1)=1°S5=S5+1:G0TOS19 


4929 


IFU=2THENPOKEV+t+2, 79:2 POKEVt3,16:U=9: 


FL(2)=1:5=S+1:GOTOS1a¢ 


493G 


IFU=S3THENPOKEV+4, 1996: POKEVtsS, 19: U=9 


*-FL(3)=1:2S=S+1:G0TO51¢ 


4946 


IFU=4THENPOKEV+6, 139! POKEV+7, 19:U=9 


-FL(4)=1:S=S+1:Go0TOS19 


4930 


IFU=STHENPOKEVtS, 169: POKEVt?, 16:U=4 


-FL (5) =1:S=S+1:GoOTOS19 
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4969 IFU=6THENPOKEV+1@9, 199: FOKEV+11,1@6:U 
=@:FL(6)=1!:S=S+1:G60TO519 

6GG5 REM **% RAIN *¥* 

6919 AS=1:AS=INT(RND(1)*¥35) +3 

6928 FOKESC+AS, 32! AS=AS+tQW! FOKESC+AS, 33: 
POKEAS+CL,? 

6939 IFSC+AS>1824THENPOKESC+AS, 32: AS=9 
6949 GOTOSILG 

6598 SA=1:SA=INT(RND(1)*¥35) +3 

6528 POKESC+SA, 32! SA=SA+QGW: POKESC+SA, 33: 
POKESAtCL,? 

6538 IFSC+SA>1S24THENPOKESCHSA, 32: SA=G 
6549 GOTO519 

6698 AA=1:AA=INT(RND(1)¥35) +3 

6628 POKESC+tAA, 32: AA=AA+QW! POKESC+AA, 33: 
POKEAA+CL, 7 

6630 IFSC+AA>1S24THENPOKESC+HAA, 32: AA=E 
6649 GOTO51¢ 

6788 SS=1!:SS=INT(RND(1)¥35) +3 

6728 POKESC+SS, 32! SS=SS+QW! POKESC+SS, 33: 
POKESS+CL, 7 

6738 IFSC+SS>1824THENPOKESC+SS, 32: SS=9 


7499 GOTOS19 
S66 REM ** THE END ** 


7028 POKES4276,@o 

7838 FORX=255TOOSTEP-1:POKES4276, 129! POK 
E54278, 249! POKES5S4273, X: NEXT 

7849 POKE2647, 231:POKE54296,9g 

7G5@ FORX=15TOSSTEP-1!:PGKE54276, 129: PQKE 
54273,48: POKES4296,%X 

7G6@ FORT=1TO026!:NEXTT: NEXT 

7878 POKES4276, 9! POKES4296, 9! POKES4278,9 
7G@71 ME=ME+1: IFME=3THEN1 2999 

7875 IFGV=2THENPOKES4278, @! POKE2947, 224: 
Z=3:G0TO9169 

7988 POKES4278,0:POKEV+1, 19: POKEV+3,19:P 
OKEV+S, 19: POKEV+7, 19: POKEV+9, 1G 

7@9IO Z=3:POKEV+t1i1, 19: X=128! POKE2947, 224 

719G IFGV=1THEN114 

S99G REM *¥* SPRITE DATA ¥* 

8G1G REM ** TANK RIGHT *¥* 

8828 DATAG,9,9,9,9,9,9,9,59,59,5,9,59,9,9,o 
19,9,9,9,9,9,9,69,9,9,9,9,9,0 

8938 DATA15S, 249,9,31, 248,09, 31,255, 252,63 
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,252,9,255, 255, 128, 255,255,128 
8948 DATAZ5S5, 255, 224, 255, 255, 274,149,S5, 
64,196,179,128,63,255,9,9 
S950 REM **% TANK LEFT *% 


SG6G DATAG,G,9,9,9,9,5,5,9,5,5,9,5,5,5,9 
79,9,8,0,98,9,9,9,5,9,9,9,5,59,9,5,9 °° 


8G7G DATAG, 31,249, 255, 255, 248, 9,63, 248,7 
,255,255,7, 255, 255,63, 255, 255,63, 255, 255 
SG38G DATALG, 176, 164,5, 85, 88,3, 255, 249, 
8199 REM ** BACK OF TANK ¥* 

B11G DATAG,G,G,9,9,9,8,9,8,5,9,9,9,9,8,9 
,G,8,0,9,8,9,9,9,9,9,9,9,9,9,4,5,f 

S12G DATAG,G,9,9,9,9,9,124,9,9,124,9,95,1 
24,9,1,255,9,1,255,9,3,255,128,1,131,9 
813G DATA1,131,¢, 
8159 REM ** 1ST ALIi 
S169 DATAS,9,9,9, 
359,9,0,9,9,09,9,95, 
S17G DATAG,248,9, 
,2,258,9,2,259,9,2, 
818G DATAZ, 138,9,2,138, 
S2GG REM *¥* WAR HEADS ** 
821G DATAD,G,9,9,9,9,9,9,¢ 
,2,9,9,8,9,9,9,9,9,9,9,9,@ 
822G DATAG,G,64,9,1,2249,9,9,64 
2:9,9,09,6,9,9,9,9,9,9,9,9,9,9,G5, 
B2SF REM XKXKHKHKHHKHHKHH HK 
8248 DATAD,S,9,9,9,9,9,9,9,@2 
G,G8,5,9,9,9,9,9,9,9,9,5,9,G, 
8259 DATAD,9,9,9,9,8,64,9,8,2 
359,9,4,59,9,9,9,9,9,90 
B2ED REM HXHKKKKKHKHKHKKKH 

827G DATAG,S,9,5,9,9,9,9,9,9,9,5,9,9,8,2 
»32,8,8,112,9,9,32,%8,8,32,8 

S28G DATAD,9,9,9,9,9,o8 
,8,59,9,9,9,9,9,9,8,9,o8 

8296 DATAG,G,@ 

8399 REM ** EXPLOSION ** 

8318 DATAG,S,9,95,9,9,9,5,5,9,5,5,4,9,5,1 
2,68,9,33,9,9,4,33,9,9,12,9,394,161,2 
S32G DATAZG, 29,5,64,192,9,19,74,8,32,1,9 
54,146,9,9,9,9,9,9,9,9,9,9,9,9,98,9,95,4,@8 
S33G DATAG,9,@ 


qQ« « 
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3348 REM ** 2ND ALIEN ** 
8359 DATAG,9,9,9,9,9,9,9,9,9,9,9,59,9,9,9 
:59,9,9,9,89,9,9,9,9,9,9,9,9,9,9,9 

8340 DATAG,63,9,9,199,128,9,237,192,9,12 
7,128,9,63,9,9,63,9,4,76,128,8,649,128 
837G DATAG, 128,464,3,9,48,¢2 

S38¢G REM ** SRD ALIEN ** 

SZSG DATAG,9,9,9,9,9,59,9,9,9,9,9,9,5,9,5 
:3,48,2,8,16,2,8,16,2,97,1449,2,97,144 
S49G DATA2, 127, 144,2, 255, 293,3,158,112,3 
»39,48,8,39,9,9,39,9,9,39,9,9,63,o 

A412 DATAG, 97, 128,0,192,192,7,128,128,2 
: 4TH ALIEM **% 

S43G DATAG,G,9,9,5,9,5,9,9,9,9,9,9,9,9,G 
14,16,9,128,49,1,64,68, 2,32,131,12,31,3 
S44 DATA12,36,128,9, 199,192,9,199,192,G 
,63,128,9,31,9,9,32,128,9,49,128 

S45G DATAG, 49, 126,9G,113,192,9,192,96,5,1 
92,96,o 

8468 REM **% STH ALIEN ** 

S47G DATAG,9,9,9,9,9,9,9,59,59,59,9,9,8,9,G 
:3,9,9,9,8,9,9,9,9,7,128,9,31,224 

S480 DATAG, 115, 248,909,243, 252,1, 255, 254,3 
6255, 255,353,255, 255,98, 193,152,9,99,24 
8490 DATAGD, 96, 24,9, 96, 24, 3, 224, 248, 3, 224 
,248,9 

S590 REM ** 6TH ALIEN **¥ 

S510 DATAG,9,9,9,9,9,9,9,9,9,59,9,9,8,95,05 
15,89,9,9,9,9,9,9,9,127,9,9,255,128 

8520 DATA1L,156,192,3, 221, 224, 3, 255, 224, 1 
2255, 192,06,255,128,9,127,9,9,128,12¢8 
S53G DATAL,G,64,2,9,32,2,9,32,7,9,112,8 
S550 REM ** PLANE ** 

S569 DATAG,9,9,9,9,9,9,9,9,9,59,9,59,9,9,@0 
19,2,9,9,6,9,9,14,9,9,26,9,9,58,15,255,2 
59 

8579 DATA25S, 255, 259,463, 255, 259, 255, 255, 2 
54,9,9,9,9,9,9,5,9,9,9,9,9,9,9,8,59,9,9,@8 
83589 DATAG,G,@ 

S599 REM ** BOMB x** 
8698 DATAG,9,9,9,9,9,9,9,9, 
,9,8,9,9,5,9,9,9,9,95,9,95,9, 
8619 DATAG,112,9,9,32,9,95,1 
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G,112,9,9,32,9,9,9,9,9,9,9,9,89,9,9,9,9,2 


PHBS 


PG1G 
PG28 


REM *% SECOND STAGE x** 
POKEV+21,128:S=@:GV=2 
POKE294@, 237: POKE2942, 237: POKE2944, 


237: POKE2941, 233: POKE26493, 2383 


PG3B 
P1d8 


3) +2: 


9116 


26:E= 


P1260 


9136 
9149 


POKE2945, 238 

QI=INT (RND(1)*15) +2: Q2=INT (RND(1) #1 
Q3=INT(RND(1)%#15) +2 

B=69:;F=196: J=150:A=INT (RND(1)¥2909) + 
INT (RND (1) #299) +26 

I=INT (RND(1)*¥296) +26 

C=9:D=62 G=G:H=9°: K=G8°:L=9 

POKEV,A: POKEV+1,B:POKEV+t4,E:POKEVtS 


»F:POKEV+8, I: POKEV+t9, J 


P15¢ 
9169 
9165 
P1768 
Pil 


3123 
8a 
9191 
9185 
919¢ 
9298 
921 
9?Pi1 
9226 
9236 
9231 
924g 
9256 
9251 
9266 
9278 
9590 
951g 
9511 


931s 
P3268 


POKEV+21, 255 

GOTOS599 
IFFR(1)=1THENS175 
A=A-Q1: IFAS 2GTHENA=259 
POKEV,A 


IFFR(2)=1THEN9185 
E=E-@2: IFE< 26THENE=259 


POKEV+4,E 

IFFR (3) =1THEN9219 
I=I1-@3!:1IF I< 2@THENI=259 
POKEV+S, I 

IFFR (1) =1LANDQ4=9THENS23¢2 
IFQ4=GANDRND (1) >. STHENS 799 
IFQ4=1THENS729 

IFFR (2) =1LAND@5=GTHENS 259 
IFQS=GANDRND (1) >. STHENS8SS 
IF @5=1THEN982¢ 

IFFR (3) =LANDQ@6=8THENS272 
IFQ@6=GANDRND (1) >. STHENS999 
IFQ6=1 THENS92G 


GOTO91469 

REM ¥% INPUT *¥* 

GETAS 
POKEV+12, 19: POKEV+13,19 


IFAS=" "ANDPEEK (2947) =226THEN1ISOSB9S 
IFAS="J"ANDZ=1 THENX=X-19 


9330 IFAS="J"ANDZ=STHENZ=2:POKE2949?7, 226: 
GOTO96990 
95499 IFAS="K"AND2Z=1 THENZ=2: POKE2947, 226: 
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GOTO?%69S5 


9S5G 

3OG 

378 
FOdD 
FEELS 
FOZ2Zg 
266G 


F676 
2] 


969H 
F495 
SG 

F696 
9697 
97 OD 
P7OBS 
9716 
9725 
9736 


74D 
9SOD 


7395 
9316 


9326 
9S30 


9340 
P9SS 


POSS 
P91 


9926 
PISO 


9949 


IFAS="K" ANDZ=3THENM=X%+1@4 
IFAS="J"ANDZ=2THENZ=1 ! POKE2947, 225 
IFAS="K"ANDZ=2THENZ=3! POKE2947, 224 
IFX< 23THENX=23 

IFX>255THENX=255 

POKEV+14, xX 

JU=PEEK (V+31) AND128 

JP=PEEK (V+31) AND128! IFIJP=128THEN799 


JI=PEEK (V+36) AND128 
JK=PEEK (V+39) ANDL28: IFIJK=128STHEN?/ OS 


IFS=3THENAL=227: GV=1:GOTO114 
GOTO?17g9 

REM XXX KKH KHHK KEE 

POKE2@41, 238 

@4=1:C=A+3:D=BtS 

D=D+1@: IFD>2905THENQ4=G:C=19:D=19 
POKEV+2,C:POKEV+3,D 

GOTO923¢g 

REM XXXKKHKKHK KEK 

POKE2943, 238 

@5=1:G=E+3:H=F+5 

H=H+1@: IFH>2G5THENGS=9: G=2G! D=1¢ 
POKEV+6, G!POKEV+7,H 

GOTO9252 

REM XXXKKKKKKHKKE 

POKE2945, 238 

@6=1:K=14+3:L=J+5 

L=L+1@: IFL >2@5THENG6=G: K=39!:L=19 
POKEV+19,K!POKEV+11,L 

GOTO9169 


19969 POKE2G46, 239 


19991 
,138: 

19995 
1GG1@G 
KEV+1 
19G2G 
19932 
1994g 
1995 
19969 


POKE5S4276, @: POKES4296, 15: POKES4277 
POKES4276, 129! POKES4273, 17 
IFX=255THENX=259! POKEV+14, X 
FORR=199TOS@STEP-5!POKEVt12,X+3:PO 
3,R 

M=PEEK (V+3@) AND64: IFM=64THEN1L S969 
NEXT 

POKEV+12, 19: POKEV+13,19 

GOTO952¢g 

S1=PEEK (V+39) ANDI! IFS1=1 THEN1 9299 
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1GG7h 
1998a 
a] 

1GBIS 
191966 
1G11¢ 
G 

1Gi12G 
192066 
1G259 
1630598 
1G3565 
19492 
1G450 
119699 
11916 


S2=PEEK (V+39) AND4: IFS2=4THENI9256 
S3=PEEK (Vt39) AND16: TFSS=16THENIGSY 


S4O=PEEK(V439) AND2: IFS4=2THENIO3S59 


SS=PEEK (V+390) ANDS: IFSS=STHEN1S499 


S6=PEEK (V+t39) AND3S2: IFS6=S32THENIG45 


GOTO19936 
POKE2949,231:S=S+1:GOTO1190609 
POKEZ942,231:S=S+1:GOTO11999 
POKE2644, 231:5=S5+1:G0TO1199¢ 
POKE2941,231:GOTO1199695 

POKE2643, 231:GO0TO011995 
POKE2945,231:GOTOQ11999 
FORT=1TOSG°: NEXT 
POKES4276, 9: POKES9296, 15: POKES42?7?7 


» 159: POKES4276, 129: POKES4273, 199 


119626 


IFS1=1THENPOKEV, 390: POKEVt+1,190°FR(1 


Y=1°>GOTO9S5S295 


11936 


(2)=1: 


11946 


IFS2=4THENPOKEV+4, 89: POKEVt5S, 19: FR 
GOTOS5S29 | 
IF S3=16THENPOKEV#+S, 139: POKEV+9, 19: 


FR(3)=1:GOTO9S29 


11956 


IFS4=2THENPOKEV+t+2, 20: POKEV+3, 19:04 


=G:C=14: D=29: GOTO9S2¢9 


11969 


IFSS=8THENPOKEV+t6, 390: POKEVt?,19:°Q5 


=@:G=16:H=296: GOTO9529 


11967¢ 


>Q46=8; 


11986 
129066 


IFS6=32THENPOKEV+19, 4: POKEV+11,19 
K=19!L=29:GOTO9529 

GOTOS52¢g 

POKEV+21,9: POKES4276, 9: POKES42964,@ 


*POKES54278, 9: POKES4277,9 


12919 
12926 


POKE54273,9 
PRINT"{CLR}{WHTIWOULD YOU LIKE ANO 


[eBRo BEF As 


129043 
12659 


12969 


READY. 


IFAS="N" THENEND 
IFAS< >" Y" THENIL 2939 
RUNS 
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GO FISH 


The computer plays a mean hand in this’ electronic 
version of the well-known card game. The aim of the game 
is to build up a series of 'books', where a book is all 


four of a particular card (such as four Aces, or four 
nines). 


Vie 


BY LY 4 


You start the game with five cards each. You can _ see 
your cards but (of course) you cannot see the computer's 
hand. The two players take it in turns to ask their 
opponents for a particular card which they need to help 
build up a set. If the player being asked does not have 
a requested card, the 'asker' ftust GO FISH (that is, 
select a card from those which have not been dealt). 
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Here are the first few exchanges in one game I played: 


Your cards: 
13 +6 4 11 10 


Do you have a 5 (Y or N)? N 

I must go fish 

What card do you want? 13 

I do not have one. You must go fish 
Your card is 6 


You have 0 books 
I have 0 books 


Your cards: 
4 6 6 10 41 «13 


Do you have an 8 (Y or N)? N 
I must go fish 

What card do you want? 6 

I have one] 


You have OQ books 
I have OQ books 


Your cards: 
4 6 6 6 10 11 13 


Do you have a 13 (Y or N)? Y 
What card do you want? 4 


I have one! 
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You have 0 books 
I have 0 books 


As the game continues, the number of cards each of you 
holds naturally increases. The computer helps you by 
keeping your hand in order: 


Your cards: 
2 3 4 4 § 6 6 6 86 9 Y YJ 11 
11 #11 

Do you have a 1 (Y or N)? N 

I must go fish 


What card do you want? 6 


I do not have one. You must go fish 


Your ecard is 10 


You have O books 
I have O books 


Your cards: 
2 3 4 4 5 6 6 6 8 9 Y 9 10 
11 #11 =#«17 

Do you have a 10 (Y or N)? Y 

What card do you want? 11 

I do not have one, You must go fish 


Your card is 13 


You have OQ books 
I have O books 
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In 


The 


due course, you'Ll start forming 'books' (groups of 
four similar cards): 


Your cards: 


22 2 3 3 3 3 6 6 6 6 9 9 


Do you have a i (Y or N)? N 


‘I must go fish 


What card do you want? 2 
I do not have one, You must go fish 
Your card is 5 


You have 3 books 
I have 2 books 


game ends when all the books have been formed, 


the time Limit has been exceeded: 


We've run out of time, so 
that's the end of the game... 
and it's a draw 


My cards: 


17 1 41 141 4 4H YH H 8B 8B 8B 8B 10 
10 10 10 12 12 12 12 #13 «#13 ~=~«13 


13 


Your cards: 


wo WN 
ack 
— 
— 
_ 
a 
— 
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or 


When you're ready to forgo pasteboard for the electronic 
equivalent, hitch your computer to the following 
program, and wait for it to do the Micro Shuffle: 


19 REM GO FISH 

24 GOSUB128@:REM INITIALISE 

30 REM *** INITIAL DEAL *** 

4@ FORIJ=1TOS 

38 C(J)=A(J) 

68 H(J)=A(I3+5) 

78 NEXT J 

89 REM *** MAJOR GAME LOOP *x** 

99 PRINT"{CLR}"!PRINT!I PRINT 

199 HZ=9 

119 PRINT"YGUR CARDS: " 

129 FORIJ=1TOS52 

139 IFH(IJ) < SO THENHZ=HZ+1:PRINTH(3I) § 

149 NEXT 

1i5S@ REM *** COMP. CHECKS IT’S CARDS *** 
169 CzZ=9 

178 FORJ=1TO52 

189 IFC(J)< >*@THENCZ=CZ+1 

199 NEXTI 

29G TU=S 

2198 TU=TUt!1 

226 IFTU=19@THENPRINTTAB(S);"NO REQUEST" 
:GOTO4d1G 7 

238 M=INT(RND(1)¥CZ) +1! IFC (M) =@ORC(M)=LA 
ANDRND (1) >. 2THEN219 

249 FL=9 

259 FORT=1TOCB 

268 IFC(M) =@(T) THENFL=1 

270 NEXT T 

280 IFFL=1THEN239 


29 LA=C iM) 
366 PRINT: PRINT 


316 PRINT"DO YOU HAVE A"; 

328 IFC (M) =SORC (M) =11THENPRINT"N"5$ 

3308 PRINTC(M) "(CY OR N) "5 

3498 INPUTKS: IFKS< > "Y"ANDKS< > "N”" THENS4SS 
350 IFKS<>"Y¥" THENTSS 

369 J=G 

3790 J=Jti1 
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33h 


IFH(J)=C(M) THENH(J)=@:C(C24+1)=C(M) 2G 


OTO429 


398 
496 
416 


4265 
430 


44g 


IF J<HZTHEN3S79 

PRINT:PRINT"I MUST GO FISH" 
C(CZ+1)=A(X) 2X=X+1 

PRINT:PRINT"WHAT CARD DO YOU WANT" 
INPUTP! IFP<@ORP >13THENG32 
IFP=@THENPRINT:PRINT"YOU MUST SELECT 


A CARD": PRINT: GOTOS69 


4356 
469 


476 
4369 


4° 


FL=9 

FORM=1TOHZ 
IFH(M) =PTHENFL=1 
NEXT M 


IFFL=STHENPRINT: PRINTTAB(7)5 "NO CHEA 


TING! ": GOTO426 


IOS 


21d 
328 


238 


PRINT 

CC=6 

Cc=CCtr1 

IFC (CC) =PTHENPRINT"I HAVE ONE! "2H(HZ 


#1)=C (CC) :C(CC)=G: GOTOS8S 


249 
JIG 


IFCC< TTTHENS294 
PRINT"I DON’T HAVE ONE. YOU MUST GQ 


FISH" 
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3/768 
339 
JOB 
O98 
61¢ 
6269 
639 
649 
659 
669 
476 
63869 
696 
27GB 
716 
7208 
73D 
746 


7I 
769 


PRINT: PRINT" YOUR CARD IS"A(C(X) 
H(HZ+1)=A(XK) 2 X=Xt1 

REM **#* PURGE ZEROES ***¥ 
REM *#* FIRST COPY ARRAYS *¥* 
TT=H2Z: IFCZ>HZTHENTT=CZ2 
TT=TT+4 

FORM=1TOTT 

E«(mM)=C (M):C(M) = 

F(M)=H(M) SH(M) =a 

NEXT M 

REM *** COMPUTER PURGE *** 
M=0:N=1 

M=mM+1 

IFE (M) =G@THEN? 16 
CCN) =E (MM) >N=Nt+1 
IFM< TT THEN689 

REM ***%* HUMAN PURGE *** 
M=9:>N=1 

M=M+1 

IFF (M) =STHEN??7S 
HCN) =F (M) 2N=N41 
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778 LEM<TTTHEN74@ 

788 REM *¥* COPY ARRAYS AGAIN *** 
79@ FORM=1TOTT 

888 E(M)=C(M):C(M) =o 

S1@ F(M)=H(M) :H(M) =o 

S29 NEXT M 

839 REM ¥¥* SORT INTO ORDER ¥** 

S4G REM ¥¥* COMPUTER FIRST ¥*% 

S58 M=a 

86G FORIJ=1TO13 

878 FORL=1T026 : 

88@ IFE(L)=JTHENM=M+1:C(M)=JIE(L) =2 
B96 NEXT L 

998 NEXT J 

91G REM *¥% NOW HUMAN ¥*% 

926 M=¢ 

939 FORJ=1T013 

94@ FORL=1T026 

9598 IFF(L)=JTHENM=M+1!:H(M)=J!F(L) =o 
968 NEXT L 

978 NEXT J 

986 REM ¥¥* ASSIGN, COUNT BOOKS *** 
999 HB=G:CB=9 

1898 FORZ=1TOTT 

191 IFC(Z)=C(Z+1) ANDC (Z+1) =C(Z+2) ANDC(Z 
+2) =C (Z+3) ANDC (Z) < >S@THENCB=CBt1:@(CB) =C ¢ 
Z) 

1926 IFH(Z)=H(Z+1)ANDH(Z+1) =H(Z+2) ANDH(Z 
+2) =H(Z+3) ANDH(Z) < >S@THENHB=HB+ 1 
1938 NEXT Zz 

1949 PRINT!:PRINT"YOU HAVE"HB" BOOK"; 
1959 IFHB<>1THENPRINT"S" 

1955 IFHB=1THENPRINT 

1969 PRINT"I HAVE"CB"BOOK"; 

1976 IFCB<>1THENPRINT"S” 

1675 IFCB=1THENPRINT 

1989 FORY=1TO1@@@:NEXT Y 

1998 IFX<S3THENS@ 

1198 REM *** END OF GAME ¥** 


111¢ 
SO Ty 


1129 


AME.. 


PRINT: PRINT"WE’VE RUN OUT OF TIME, 


PRINT: PRINT" THAT’S THE END OF THE G 
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1136 
1146 
1156 
NER!" 
1164 
4 
1176 
11896 
1196 
1296 
1219 
1226 
1230 
124g 
1259 
1266 
1276 
1286 
1296 
1386 
13) 
131¢ 
1326 
133g 
1346 
1354 
136d 
1376 
1386 
1396 
1399 
G 
14922 
1436 
1444 


FORY=1TO1969:NEXT Y 
PRINT 
IFHB>CBTHENPRINT"AND 


IFCB>HBTHENPRINT"AND I’M THE WINNER 


IFCB=HBTHENPRINT"AND IT’S A DRAW. " 


PRINT:IPRINT"MY CARDS: "PRINT 
FORY=1TO52 

IFC (Y) < >STHENPRINTC(CY) 5 
NEXT: PRINT: PRINT 

PRINT" YOUR CARDS: ": PRINT 
FORY=1TOS2 

IFH CY) < >STHENPRINTH(CY) 5 
NEXT: PRINT: PRINT 

END 

REM KEEKHKKHKHKE 

REM INITIALISE 
POKES3231,9 


DIMC (56) ,H( 56) ,E(56),F (56) ,A(52) , @( 


HB=9:CB=6°:REM *BOOKS’ CQUNT 
Z=11°7>REM NEXT CARD TO DEAL 
TT=8: REM NO. OF CARDS TO CHECK 
LA=9 

REM MOSES/QAKFORD SHUFFLE 
FORJ=9TOQS1 

K=INT(I/4) +1 

A(J+1)=K 

NEXTI 


FORJ=S2TO2STEP-1 
Z=INT(RND(1)%¥I) +1 


H=A(Z)5A(Z)I=A(IJ) 
ACJ) =H:INEXT J 
RETURN 


READY. 
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YOU’ RE THE WIN 


FOUR SQUARE 


This is an unusual board game, in which you have to try 
and possess as many squares in a group of four as you 


can. This should be clear when you Look at the board at 
the start of the game: 
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My score: Q Your score: 0 


QmMNmoOOQW SP 


ENTER YOUR MOVE (LETTER, NO.)? D2 


The human has moved into H3 and the computer moves into 
E5. Next, the human moves into De: 


My score: 0 Your score: 0 


QmMmVUQ Ww YS 
e 
a 2 
Q 


Very shortly, the human Looks Like getting a group of 
four squares, so the computer moves into D1 to frustrate 
that aim: 
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My score: 0 Your score: 0 


A o 8 6 6 8 lw 
B © 8 © 6 6 ew 
C H H o 8 6 
D CH...C., 
E eo 8 8 C 
F 

G 


ENTER YOUR MOVE (LETTER, NO.)? D3 


As the game progresses, the possibilities for success by 
both sides increase: 


My score: 1 Your score: 2 


A oe «© © © © 
B 2 C HH. « € 
C H HHH. . 

D CHHCCC, 
E - HCC CHC 
F oe ae ee ° 
G oe © © «© © « 


ENTER YOUR MOVE (LETTER, NO.)? £5 
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Note that one particular symbol can be part of more than 
one group of four. For example, here you can see that 
the middle H is part of two groups of four: 


The computer keeps track of the totals as the game 
unfolds: 


My score: 4 Your score: 4 
1234567 

A & « BM BOO «2 & 

B HC HHHCC 

C HHH HCCC 

D CHHCCCC 

E HHCCCHC 

F HHHH.CC 

G H C e e C @ e 


ENTER YOUR MOVE (LETTER, NO.)? A2 


— 
NM 
Ud 
f= 
LO 2) 
On 
~ 


QAnmvaAW > 
Trim amim. 
Om sae Oe 
0) te et ete 
Tm OO mw a mm 
© QAQDMOA 
Qamanagas 
AAAAAN-. 
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Until, finally, one player (in this case, the computer) 
proves victorious: 


My score: 6 Your score: 5 
1234567 

A C H H HC HH 

B HC HHHCC 

C HHH HCCC 

D C HHC CCC 

E HHCCCHC 

F H H H HCCC 

G HC HHCCC 


That's the end of the game 


And I'm the winner! 


When you're ready for a four square battle, here's’ the 
Listing to allow you to do it: 


19 REM FOUR SQUARE 

26 GOSUBS59:REM INITIALISE 
38 GOSUB739:REM PRINT BOARD 
4% GOSUB64@:REM PLAYER MOVE 
58 GOSUB519:REM ASSESS BOARD 
6G GOSUB739:REM PRINT BOARD 
78 IFCO=49THENI3¢ 

8@ GOSUB219:REM COMPUTER MOVES 
99 GOSUB519:REM ASSESS BOARD 
1968 GOSUB73@:REM PRINT BOARD 
119 IFCO< >49THENGS 

L2G REM KXKKKKHKKHKHS 

139 REM END OF GAME 


149 PRINT: PRINT"THAT’S THE END OF THE GA 
ME" 
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156 PRINT: PRINT 

169 IFHS*>CSTHENPRINT"YOU’RE THE WINNER! " 
176 IFCS>HSTHENPRINT"ANDI’?M THE WINNER?" 
189 IFHS=CSTHENPRINT"WE SEEM TO HAVE COM 
E TQ A DRAW!" 


1°69 END 
2IG REM HHKKKHKHHKHKKHKE 


219 REM COMPUTER MOVES 

226 PRINT"MY MOVE..." 

2306 REM ** WIN/BLOCK MOVE *** 

2499 MO=9 

2909 J=C 

268 M=8 

279 A=AKt1 

2389 IFACK) =JANDACXKX4+1) =JANDA(KX+19) =JANDA ( 
X+11) =NTHENMO=X+11°GOTO49479 

2°60 IFRND(1)7.92ANDJI=HTHENS29 

3G9G IFACK) =JANDA (%+19) =JANDA CA+11)=JANDA 
(A+1) =NTHENMO=X+1:GO0TO47¢ 

3190 IFRND(1)7.9°ANDJI=HTHENS39 

3290 IFACK) =JANDA(K+1)=JANDA(X+11)=JANDA ( 
4+19) =NTHENMO=K+19: GOTO476 

3398 IFA(X) =NANDA(X+1)=JANDA(X+19) =JANDA ( 
At11)=JITHENMO=X: GOTO479 

349 IFX<67THEN279 

3356 IFI=CTHENJ=H: GOTO269 

35696 REM **#* MIRROR MOVE *X** 

378 IFA(68-K) =NTHENMO=68-K:.GOTO4/79 

3389 REM **¥* RANDOM MOVE *** 

S39G K=h8 

499 X=X%+1 

416 Z=INT(RND(1)*67) +1 

926 IFA(Z) =NTHENMO=2:GOTO47¢9 

4390 IFX<SO6SGTHENSSS 

446 PRINT: PRINT 

4560 PRINT"I CONCEDE THE GAME CHAMP!" 

4690 END 

479 REM *** MAKE MOVE *xX* 

489 A(MO)=C 

4°96 RETURN 

IGG REM KKHEKHKHKKEKEKE 

319 REM ASSESS BOARD 

326 CO=9 

3308 HS=6:REM HUMAN SCORE 
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546 CS=@:REM COMPUTER SCORE 

559 FORZ=1TO56 

566 IFA(Z) =HANDA(Z+1) =HANDA (Z+19) =HANDA ( 
Z+11)=HTHENHS=HS+tl 

378 IFA(Z)=CANDA(Z+1) =CANDA (Z+19) =CANDA ( 
Z+ii)=CTHENCS=CStl 

S89 NEXT 2 

599 FORZ=1TO467 

6968 IFA(Z)=CORA(Z) =HTHENCO=CO+1 

618 NEXT 2 

628 RETURN 

3G REM KKEKHKHKHKHHHK KK KKHH 

64G REM ACCEPT PLAYER MOVE 

659 REM ENTER @ TO END GAME 

669 PRINT"ENTER YOUR MOVE (LETTER, NQ.)"” 
665 INPUTBS 

678 IFASC (BS) =ASC ("0") THENL4S 

6890 IFLEN(BS) < >20RASC (BS) <650RASC (BS) >72 
THEN669 

69S K=19* (ASC (BS) -54) +VAL (RIGHTS (BS, 1))- 
1196 

695 IFA(K) =67THEN669 

788 A(K) =H 

718 RETURN 

F2ZE REM KKKHKKHHKKHK 

736 REM PRINT BOARD 

746 PRINT"{CLR}":PRINT:PRINT 

7308 PRINT"MY SCORE: "CS" YOUR SCORE: "HS: 
PRINT: PRINT 

768 PRINT" 12345 67" 

776 FORJ=6TO6S 

7386 IFAIG*INT(IJ/19) =JTHENPRINT: PRINTCHRS ( 
65+INT(J/19))5" "s3:IFI>SiITHENPRINT" "3 
796 IFA(IJ) =ETHENS19 

S99 PRINTCHRS(A(J))35" "3 

810 NEXT J 

S28 PRINT:PRINT: PRINT 

838 RETURN 

S4G REM KKHKKKKKKKHHHHKH 

859 REM INITIALISATION 

S66 REM 

S78 PRINT"{CLR}"!:PRINT: PRINT 

886 PRINT"PLEASE STAND BY..." 

899 DIMA(99) 
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PhD 
91d 
P29 
P3g 
9465 
938 
F469 
976 


93 
POR 


E=-9:REM OFF BOARD 
C=ASC("C") REM COMPUTER PIECE 
H=ASC ("H") ;REM HUMAN PIECE 
N=ASC(".") REM NOT FILLED IN 
FORJ=1TO99 

A(J)=E 

Z=J-1G*#INT(I/19) 

IF Z=GORZ=SORZ=9THENIGSS 


IF J >467THENISGSS 
A(J)=N 


196990 NEXT J 
19190 RETURN 


READY. 
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IMPERIAL CASTLE 


You've been zapped away in a time machine, to Land in an 
isolated castle, in the year 1638. You have to try and 
get out of the castle safely. 


Here's the vocabulary you can use: 


N, S, E, W 
GO, MOVE 
GET, PICK 
KILL, FIGHT 
QUIT 

MELT 

DIG 

CROSS 
PRESS 

KISS 

OPEN 
INVENTORY 


Time to tackle the dangers of Imperial Castle. 


19 PRINT"{CLR3"!POKE53251,9!POKE53289,2 
LDA REM HHKKKKXHHKKKHKKHHKHHKHHKK 

11@ REM ¥¥* MAIN ROUTINE *** 

L2G REM KXKKKKKHHHKKHK HHH KH HHEK 

139 GOSUB2999:REM INITIALISE 

135 IFCS(3)=""THEN14S 

149 IFRO+13THEN144 

141 ONROGGOSUB9IG1G, 9959, 91995, 9159, 9298, 72 
59, 9399, 9359, 9490, 9455, 95905, 9559, 9499 
142 GOTO16¢ 

144 IFRO?25THEN148 

145 2=R0-13 

146 ONZGOSUB94654, 9700, 9758, F390, F850, 599 
G, 9959, 19GGA, 19959, 1G19G,1G15G, 19299 

147 GOTO169 

148 IFRO>SS5STHENI52 

149 Z=RO-25 

158 ONZGOSUB1G25G, 19399, 19358, 19499,1945 
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mH be bh pe &) 
choc wn ca 
WobJo oe 


we 


=RO-35 


1953690, 1G3550, 196900, 1G659, 14750 
GOTO1S5¢ 
IFRO?4STHEN1S56 


G,119960,11956,11190,11159, 112990 


135 
156 
46D 
160 
O28 


176 


GOTO16¢ 
Z=RO-45: GHZGGSUB112596,1139@,11359,11 


RE 
IFRO=SANDCS (3) =""THENISS 
IFC$(3)=""THENPRINT"CORSIT IS TOO DA 


RE TO SEE ANYTHING. {LT BLU}":GOTO24¢ 


1SG GOSUBS99G 


198 PRINT: PRINT" {GRN}DIRECTIONS: "3 


260 IFA(RG,1)4>@THENPRINT" 


tf oo 
3 3 


21G IFACRO, 2) 4 -STHENPRINT” 


3 
228 IFA(RO,3)<>@THENPRINT" 


3 


239 IFA(RO,4) <>9THENPRINT" 


235 PRINT FRINT 


249 GOSUBIGSS 


2590 PRINT" CHOME} {CUR 


<CUR 
{CUR 


{CUR 
{CUR 
{CUR 


255 FRINT"(RVS 


DNC CUR 
DNS{ CUR 
DN><T CUR 
DNF{ CUR 
DN tTRVS 


DNTCUR 
DNF{CUR 
DN<TCUR 
DN {CUR 


ONS (GRIN? 


DNS {CUR 
DN;iT CUR 
DN;( CUR 
DN FCT CUR 
DiS (CUR 


fl os 
3 


ON?{LT GRNG 


236 PRINT"iRVS ONS TGRNG 


299 GOTO1S3=5 


15G6 
14196 
1928 
1949 
1941 


1G42 
1943 


REM KEKE KHKHHHH 


REM ** INPUT ** 


REM HEKHKHHHKKKHK 
INPUT "OK. 


WHAT NOW* 5 AS 


IF AS="N" THENAS="NORTH" 


IFAS="3" THENAS=" SOUTH" 
IFAS="E" THENAS="EAST" 
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CLT 


ALT 


ee 


CLT 


GRNGE 


GRIN SW 


DNFT CUR 
DNI{CUR 
DNSi CUR 
DN;{ CUR 
DN? (CUR 


ONZGOSUBIG759, 19899, 19850,19909,1995 


GRN NORTH 


AST; 


EST. 


DN 
DN > 
DNG 
DN > 
DING 


S44 
S5a 


TFAS="W" THENAS="WEST" 
LS®=LEFTS(AG, 2): IFLS="GGO"ORLS="MG" GR 


LS$="NO"ORLS="SO"ORLS="EA" THENLSOSS 


196355 
19356 


"{CWHTS ADVENTURE OVER, 


14466 


IFLS="WE" THENI1SO9 

IFLEF TS (AS, 4) ="QUIT" THENFRINT : PRINT 
COWARD! ! "END 
IFLEFT$S(AS,4)="PICK"QRLEFTS (AS, 3) =" 


GET" THEN169¢9 


19676 IFLEFTS(AS,4)="FIGH"ORLEFTS (AS, 4) =" 
KILL" THEN1L? S65 

19675 IFLEFTS(AS, 4) ="MELT" THENSS9S 

1989 IFLEFTS(AS, 3) ="DIG" THENLSSS 

19690 IFLEFTS(AS,5)="CROSS” THENISS@ 

11960 IFLEFTS (AS, 5) ="PRESS" THENI9OSS 

11196 IFLEFTS(A%S,4)="KISS" THENI9S¢ 

L1iii IFLEFTS (AS, 4) ="OQPEN” THEN/YSSS 

Lil2 TFRIGHTS (AS, 9) ="INVENTGORY " THENGOSUB 


6999: RETURN 

1139 PRINT: PRINT"{GY 33SQRRY, BUT THAT C 
OMMAND DGES NOT COMPUTECLT BLU" 

1149 RETURN 

15490 REM F*X*¥ MOVE HE 

i519 LS=RIGHT#$(AS,4) >: IFLS="EAST"ANDA(RG, 
3) =G6THENIS389 

1511 ITFLS="WEST"ANDA(RO, 4) =S@THENIS39 


1512 IFLS="EAST"ANDRO=13ANDCS$ (2) =" " THENP 
RINT"YOU JUST FELL DOWN A PIT! ":END 


1513 IFLS="WEST"ANDRO=28ANDDI (3) < >L THENP 
RINT" THERE IS A CAVED IN TUNNEL": RETURN 
1514 IFLS="WEST "ANDRO=45ANDPRX< > 1 THENPRIN 
T"THIS DOOR CAN BE OPENED, BUT NOT BY A" 
1515 IFLS="WEST "ANDRG=45ANDPR< > 1 THENPRIN 
T"KEY": RETURN 

1516 IFLS="EAST"ANDRO=34ANDDI (1) =@THENPR 
INT"YGU NEED THE GOLD KEY."!:RETURN 

1517 LS=RIGHTS(AS,5) 


1518 IFLS="NORTH"ANDRO=41ANDCS$(196)=""THE 
NPRINT"YQU NEED THE CRYSTAL.": RETURN 


1519 IFLS="NORTH" ANDRO=46ANDDI (2) =STHENP 
RINT"YGU NEED THE SILVER KEY.":RETURN 


15290 IFLS="NORTH”"ANDAI(RO, 1) =STHENIS8¢9 
1536 IFLSé="SOUTH"ANDACROG, 2) =G6THENIS3S9 
1549 IFLS="NORTH” THENRO=A(RO, 1) 
15350 IFL&="SOUTH" THENRO=A (RO, 2) 


386 


1555 LS=RIGHTS (AS, 4) 

1569 IFRO=13ANDL#="EAST"THENPRINT"A ROPE 
EXTENDS ACROSS THE LONG PIT.": RETURN 
13561 TFRO=14ANDLS="WEST" THENPRINT " THERE 
IS ONE SOLITARY ROPE ACROSS THE PIT":R 
ETURN 

1565 IFLS="WEST" THENRO=A (RO, 4) 


15790 IFLS="EAST" THENRO=A(RO, 3) 
13575 RETURN 


1589 PRINT"{RVS ON3NO EXIT!{RVS OFF3" 


1599 RETURN 
1698 REM ***PICK UP GBIJIECTS *kK* 


1694 IFRO=4THENI615 | 
16965 IFA(RO,5)<>1THENPRINT" THERE IS NOTH 


ING TO PICK UP.":RETURN- 

16190 IFCS$(3)=""THENPRINT"{ORSI CAN’ T SEE 
WHERE IT IS!{LT BLU}": RETURN 

1615 IFRO=S39GANDZO=9THENPRINT”" THERE IS A 

ZOMBIE IN THE WAY! ! "RETURN 

1616 IFRO=19ANDKI=GTHENPRINT" THERE IS A 

SLEEPING PRINCESS THERE!!!" RETURN 

1617 IFRO=S31LANDWI=STHENPRINT" THE WIZARD 

HAS IT!" RETURN 

1626 IFRO=4ANDRIGHTS (AS, 7) ="LANTERN" THEN 
C$(3)=" LANTERN": GOTO1696 

1636 IFRO=SANDRIGHTS (AS, 4) ="ROPE” THENCS ( 
2)=" ROPE": GOTO1L696 

1699 IFRO=3S5ANDRIGHTS (AS, 6) ="SHOVEL" THEN 
C#$(1)=" SHOVEL”: GOTO1696 

1659 ° IFRO=39ANDZO0=1ANDRIGHTS (AS, 8)="DETE 


CTOR" THENCS(4)=" METAL DETECTOR": GOTO169? 
6 

1668 IFRO=31ANDWI=1ANDRIGHTS$ (AS, 4) ="WAND 
"THENCS$(5)=" WAND": GOTO1696 

1679 IFRO=26ANDRIGHTS (AS, 4) ="GOLD" THENCS 
(6).=" A GOLD SACK": GOTOQ1696 

16735 TFRO=26ANDRIGHTS (AS, 4) ="SACK" THENCS 
(6)=" A GOLD SACK": GOTO1696 

16880 IFRO=21ANDRIGHTS (AS, 5) ="SWORD" THENC 
$(7)=" SWORD": GOTO1L696 

16°99 IFRO=24ANDRIGHTS (AS, 6) ="HEATER” THEN 
C$(8)=" HEATER": GOTO1696 


1691 IFRO=19ANDKI=1ANDRIGHTS (AS, 3) ="KEY" 
THENCS(9)=" SKELETON KEY": GOTO1696 
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1692 IFRO=23ANDCH=1LANDRIGHT$(AS,7)="CRYS 


TAL "THENC#(19)=" CRYSTAL": GOTO1L696 

1692 IFRO-16ANDDI (1) =1ANDRIGHTS (AS, 3) ="K 
EY"THENCS(il)=" GOLD KEY":GOTO1496 

1674 IFRO=44ANDDI (2) =LANDRIGHTS (AS, 3) ="K 
EY"THENCS(12)=" SILVER KEY":GOTO1696 


1695 PRINT" YQU ARE NOT ABLE TO GET IT!"; 
RETURN 

1696 A(RO,5)=G: RETURN 

179490 REM *** FIGHT / KILL #k* 

17168 IFA(RO,5)<>1THENPRINT"WHO DO YOU WA 


NT TO "348%; " YOURSELF! ": RETURN 
I72e@ IFRO=19°THENPRINT"SURELY YOU DON’T W 


ANT TQ KILL THE PRINCESS"! RETURN 
17368 IFRO=31THENPRINT"YOU WANT TO "sas: " 
THE WIZARD. NCT A WISE MOVE. "!:RETURN 
1731 IFRO=12ANDC$(5)=""ANDC#&(7)=""THENPR 
INT"YGU MUST FIGHT THE WITCH DOCTOR" 
1732 IFRO=12ANDC$(5)=""ANDCS(7) ="" THENFR 
INT"WiTH BARE HANDS." 

1733 IFRO=12ANDCS(5) =""ANDCS$(7)=""THENFO 

RAA=1TO250@! NEXT | | 

1734 IFRO=12ANDC$(5) =""ANDCS(7) =" " THENPR 


INT"YGU DISAPPEAR IN A PUFF OF SMOKE”: EN 
D 

1735 IFRO=12ANDCS$(7)<>""ANDC$(5) =" " THENF 
RINT" *GQUR SWORD WAS INEFFECTIVE. ":END 
1736 IFRO=12ANDC$(5)<>""THENFRINT" THE WA 
MD THAT THE WiZARD GAVE YOU, HAS " 

1737 IFRO=12ANDC$(35)<43""THENPRINT"KILLED 
THE WITCH DOCTOR. ": VD=1: RETURN 

1749 IFRO¢ -SETHEWRETURN 


173598 IFCS(?7)=""THENPRINT"YOU MUST FIGHT 
WITH BARE HANDS.” 
17696 IFCS(7)=""THENFORAA=1TO2599: NEXT: PR 


INT"THE ZOMBIE HAS MUTILATED YOU! ":END- 
1778 PRINT"THE ZOMBIE LIES DEAD AT YOUR 
FEET. ":20=1 

1789 RETURN 

1899 REM XXX DIG ¥xX* 

1819 IFCS(1)=""THENPRINT"YOU CAN’T DIG W 
ITH BARE HANDS!!!":RETURN 

1811 IFRO< >28ANDRO< > 16ANDROX > 44ANDROS 345 
THENPRINT"YOQU JUST DUG A MASSIVE HOLE IN 
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THE" 


1812 


THENFRINT"GROUND AND FELL DOWN 


1313 
1314 
ARED 
1Sis 
1828 
DIRT 
N 
iSs2c 
1339 
HAS 
FM 


1835 


A TILE IN 


1246 
1836 
1360 


IFRO< >28ANDROC FL GANDRG* C45 ANDROC 745 
IT?! "SEND 
IFDI(S3)=1THEHNISIS 
IFRO=2STHENPRINT"CCYNs YOUR HAVE CLE 
AWAY THE CAVE IN! "2DI(3)=12RETURN 
IFDI(1) =1THENISE5 
IFRO=14THENPRINT"{CYNSJON A FILE OF 
YOU SEE A GOLD KEY! !"IDIC1)=1°RETUR 


IFDIi (2) =1THENIS35 


IFRO=44THENPRINT"(CYN YOUR DIGGING 


EXPOSED A SILVER KEY! !"iDIC(2)=1°RETU 


IFRO=4STHENPRINT"ICYNIHIDDEN UNDER 
THE CORNER IS A BUTTON....” 
RETURN 

REM *¥*#* CROSS ROFE *** 


IFRO< 1 SANDROC FL4THENPRINT"I SEE NO 


THING TO CROSS! !"2 RETURN 


ha’ 2 


IFC$(2)=""THENPRINT"I SEE A VERY LO 


G AND DEEP PIT." 


1ea¢ 


IFCS(2)=""THENPRINT" YOU CAN’ T CROSS 


IT WITHOUT THE ROPE.” 2: RETURN 


1399 
YOU 
1395 


1896 
1897 


1906 


1°16. 


PRINT"AT ONE STAGE YOU SLIPFED, 
MADE IT ACROSS SAFELY." 
IFRO=14THENROQ=A(RO, 4) : RETURN 
IFRO=iSTHENRO=A (RO, 3) ;: RETURN 
RETURN 

REM *#*#%* PRESS BUTTON *** 

IFRO¢ S4STHENPRINT"I CAN’ T SEE ANYTH 


BUT 


ING TO PRESS!!!" RETURN 


1926 
1921 
Looe 
19235 


IFAS="PRESS" THEN1L 9390 

ITFRIGHTS (AS, 46)="BUTTON" THEN1I?25 
RETURN 

PRINT" THE DOOR HAS OPENED MECHANICA 


LLY" PR=1°:RETURN 


19390 INPUT"PRESS WHAT";AS 

1°49 IFRIGHTS(AS, 6)="BUTTON" THENIS25 
1745 PRINT"I’M NOT ABLE TO FRESS THE "3A 
$: RETURN 

19356 REM *#* KISS *¥X 

1966 IFRO<+iSTHENPRINT"I LIKE THE IDEA, 


BUT I CAN’T SEE ANYONE. ": RETURN 
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96S 


TFKI=1THENPRINT”"SHE GIVES YOU A SLA 


OM THE FACE! ":RETURN 
1976 PRINT"I’VE FAINTED. GIVE ME A COUPL 
E OF SECONDS TO RECOVER!" 
1986 PRINT"THE PRINCESS GIVeS YOU A KISS 
BACK AND THANKS YOU FOR BREAKING THE" 
1999 PRINT"SPELL THAT THE WITCH DOCTOR P 
UT HER UNDER, " 


Lo 4 


PRINT"SHE WARNS YOU THAT THE WiTCH 


DOCTOR MAY HAVE MADE A VOODGO DOLL OF you 


1992 


EMBER 
1993 


1994 


PRINT"COME TO THINK OF IT, I DO REM 


GETTING SOME PRICKS HERE AND" 
PRINT" THERE” 


IFWI C1) =-1THENPRINT"ACTUALLY, I DO R 


EMEMBERK SEEING A PERSON WHO RESEMBLED " 


1995 


IFWI(1)=1THENPRINT"A WITCH DOCTOR. 


I’M STARTING TQ SCARE MYSELF!!!" 


1996 
2OBG 
2G16 
2ILDG 
29308 


2846 
2858 


2569 
2O72 


2636 
3GBS 


3G1G 
39268 
3SIGS3EG 
349 


3G3B 
3G6G 


3878 
388 


SBID 
3196 


S11Gd 
3126 


3136 
31469 


315d 


Ki=1:RETURN 

REM ¥*% INITIALISATION ¥X*¥ 
DIMA (47,5) :DIMCS(12) 
FORB=1T047 

FORC=1TOS 

READA(B,C) 

NEXT C 

NEXT B 

RO=1 

RETURN 

REM XH HHH KKHKKHKK KK HK 

REM *¥*¥* ROOM DATA *¥* 

REM XH KKK HK KH HKHH HEHE 
DATAZ,@,9,9,9:REM ROOM 1 
DATAS,1,4,3,9:REM ROOM 2 
DATAG,9,2,9,9:REM ROOM 3 
DATA6,%,43,2,1:REM ROOM 4 
DATA?,2,6,9,@:REM ROOM 5 
DATAS,4,9,5,9:REM ROOM 6 
DATA19,5,9,9,@:REM ROOM 7 
DATAS,6,9,9,9:REM ROOM 8 
DATA11,43,9,8,1:REM ROOM F 
DATA12,7,11,25,@:REM ROOM 19 
DATA13,9,9,19,9:REM ROOM 11 
DATAG,19,13,26,1:REM ROOM 12 
DATAG,11,14,12,9:REM ROOM 13 
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3168 
3176 
218g 
319C 
3298 
321 
322G 

236 
3535 
3250 
326G 
327 
3536 
3299 
33g 


—~ =-——Pp 4 


Soild 
33265 
3338 
Budd 
353350 
DoO68 
3376 
3538 
B3a9h 
S4IA4GE 
3414 
34268 
3430 
2448 


3459 
346D 


34765 
3439 


49g 
S508 


VIDE 


DATA16,17,15,13,@:REM ROOM 14 
DATAZ@,17,18,14,@:REM ROOM 15 
DATAG,14,29,4,1:REM ROOM 16 
DATA15,9,9,14,9:REM ROOM 17 
DATA19, 21,9,15,9:REM ROGM 18 
DATAS,18,9,2@,1:REM ROGM 19 
DATAG,15,19,16,8:REM RUGM 26 
DATA1S,9,22,9,1:REM ROOM 21 
DATA24,23,9,21,9:REM ROOM 22 
DATAZ? .@,9,9,1:REM ROOM 23 
DATAG, 22,8,9,1:REM ROOM 24 


DATA26,9,19,27,9:REM ROOM 25 
DATA®,75,12,9,17REM ROOM 26 


DATA?-4, 34, 25,28,9:REM ROOM 27 
DA" A33,35,27,29,9:REM ROOM 28 
DATAS2, 32, 28,39,9:REM ROOM 29 
DATAS1,31,29,9,1:REM ROOM 39 
DATASS,39,32,9,1:REM ROOM 31 
DATA29, 29,%,31,9:REM ROGM 32 
DATAS4, 28,34,9,9:REM ROOM 33 
DATA27, 27,37,33,9:REM ROOM 34 
DATA28,36,9,9,1:REM ROOM 35 
DATAS5,33,9,9,9:REM ROOM 36 
DATA41,34,38,39,9:REM ROOM 37 
DATA42,9,9,37,9:REM ROOM 38 
DATA4G,9,37,4,9:REM ROOM 39 
DATAS,39,41,9,9: REM ROOM 4g 
DATA4S5, 37,42,49,9:REM ROOM 41 
DATAG,38,9,91,9:REM ROOM 42 
DATA?,4,44,9,9:REM ROOM 43 
DATAG,9,9,43,1:REM ROOM 44 
DATAG,41,9,46,1:REM ROOM 45 
DATA47,%,45,9,9:REM ROOM 46 
DATAG,46,9,48,9:REM ROOM 47 
REM HEHEHE EEE 
KKEKKKKKKIKKHIKKKKKEKEKEEKEKEEES 
PRINT:PRINT"{YEL3## CPUR}YQU CAN SE 


E tYELs##" 


IHG1 
IOGGBS 


PRINT 
IFRO=17ANDCS(9) <>" "THENPRINT"CWHTGA 


BEAUTIFUL PRINCESS. SHE GIVES YOU A K 
ISS": RETURN 


~OO?7 


IFRO=S1LANDCS$(5)<>""THENPRINT"{WHT3A 


SHIVERING WIZARD" >: RETURN 
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S899 ITFRO=12THENS929 

3916 IFA(PO,5) =STHENPRINT”"CWHTISNOTHING &S 
PECTIAL{LT BLU}" 2: RETURN 

5426 IFRO=4THENPRINT”"CWHTFA GLOWING LANT 
ERN” > RETURN 

9921 TFRO=26THENPRINT"{WHTFA GOLD SACK." 
> RETURN 

39OG22 IFRO=12ANDVD=1THENPRINT"{WHT3A DEAD 
WITCH DOCTOR": RETURN . 

3629 IFRO=9THENPRINT"{WHT3A LONG FIECE CG 
F ROFE”": RETURN 


~G3EG IFCS(4)=" METAL DETECTOR” ANDRO=44TH 
ENPRINT" YOUR METAL DETECTOR" 
~GS31 IFC#%(4)=" METAL DETECTOR" ANDRU=44TH 


atta dee plore ae SOME SORT" 
=" METAL DETECTOR" ANDRO=44TH 


ENFRINT"GF METAL BELOW YOUR FEET" 

38498 IFC#8(4)=" METAL DETECTOR"ANDRGO=45TH 
ENPRINT"CWHT} YOUR METAL DETECTOR” 

3841 IFC#(4)=" METAL DETECTOR" ANDRO=45TH 
ENPRINT"HAS FOUND SOME SORT" 

“842 IFCS$(4)=" METAL DETECTOR" ANDRO=45TH 
ENPRINT"GF METAL BELOW YOUR FEET" 

9GS58 IFRO=S3STHENPRINT"{(WHT3A SHOVEL” 

S@66 IFRO=SGANDZO=1THENPRINT"{WHTFA DEAD 
ZOMBIE!" 

38970 IFRO=39THENPRINT"{WHT3A METAL DETEC 

TOR" 

2889 IFRO=31LANDWI=GTHENPRINT"{WHTSA FROZ 

EN WIZARD IN ICE" 

2899 IFROG=31ANDWI=1THENPRINT"{CWHTSA WIZA 
RD AND HIS WAND" 

J19G IFRO=21THENPRINT"{WHTSA SWORD” 

Sii1@ IFCS8(4)=" METAL DETECTOR" ANDRO=16TH 
ENPRINT"{WHTSYOUR METAL DETECTOR" 

Silii IFCS(4)=" METAL DETECTOR" ANDRO=16TH 
ENPRINT"HAS FOUND SOME SORT" 


Siiz2 IFC8(4)=" METAL DETECTOR" ANDRO=16TH 
ENPRINT"GF METAL BELOW YOUR FEET" 


§12@ IFRO=19ANDKI=GTHENPRINT"{WHT3A SLEE 
ING PRINCESS" 


313986 IFRO=19°ANDKI=-1THENPRINT" C(WHTSA BEAU 


TIFUL PRINCESS”: FRINT"A SKELETON KEY" 
~19496 TFRG=24THENPRINT"{WHT3A PORTABLE HE 
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ATER" 

SisS@ IFRO=23ANDCH=6THENPRINT"{WHT3A FINE 
LY DECORATED CHEST" 

S160 TFRO=23ANDCH=1 THENPRINT" (WHT FAN 
MN CHEST" 

3165 IFRO=23ANDCH=1THENPRINT"{WHTSWITH A 


CRYSTAL IN IT" 
3176 IFRO=23ANDVD=GANDCH=1 THENPRINT" (WHT 


7A VODOG DOLL WITH IT’S HEAD CHOPPED OFF 


OPE 


2188 IFRO=23ANDVD=GANDCH=1THENFPRINT"? THE 
voonpoeo DOLL IS A REPLICA OF YOU’ ":END 


SiIiSH IFRO=-12ANDWI (1) =G@THENPRINT"{CWHTSA W 
ITCH DOCTOR. HE HAS WHAT LOOKS LIKE" 
~=269 IFRO=12ANDWI (1) =STHENPRINT"{WHTSA V 
GOpDOG DOALL. IT SEEMS TO RESEMBLE YOU?!" 
V2065 IFRO=12ANDWI (1) =S@THENWI (1) =1° RETURN 
5206 IFVD=1THENRETURN 

3216 IFRQ=12ANDWI(1)=1THENPRINT"A WITCH 
DOCTOR. ARGQUND HIM LAY THE REMAINS" 
32290 IFRO=12ANDWI (1) =1THENPRINT"GF FINGE 


bens PIECES AND STRANDS OF 
t " 


WLOG 


AILS 
IL4I0 


HAIR. YO 


IFRO=12ANDWI1 (1) =1THENPRINT"FINGER WN 
LGOK A BIT SHORT, AND YOU HAVE A" 
IFRO=12ANDWI (1) =1THENPRINT" SMALL BA 


LD FATCH ON YOUR HEAD!!!” 


3245 


IFRO=12ANDWI (1) =1THENPRINT"GH NO! ! 


I’?D BE CAREFUL!" 


5258 RETURN 

6998 PRINT: PRINT"{OR}YOU ARE CARRYING{WH 
7 

6919 FORAA=1TO12:PRINT" ("AA") "CH(AA) 2 NE 
xT 

6926 PRINT"{OR}":PRINT"HIT ANY KEY{LT BL 
uo 

6939 GETGS: IFGS=""THEN6S3a 

4948 RETURN 

7898 REM ¥¥X OPEN ¥*% 

7G@1G IFCH=1ANDRO=23THENPRINT"THE CHEST I 


S ALREADY OPEN": RETURN 


7829 


IFRO< >23THENPRINT" THERE IS NOTHING 


IN HERE TO OPEN! ": RETURN 
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7G25 IFCS(9)=""THENPRINT"<WHT} YOU NEED T 
HE SKELETCN KEY.":RETURN 

7G@3G CH=1 

7948 RETURN = 

SOGG REM ¥¥*¥ MELT ICE WITH HEATER *** 
8G1G IFRO< > SL ANDC#(S)=""THENPRINT" {WHT FW 
HAT IS THERE TO MELT IN HERE! ":RETURN 
SO2G IFC$(8)=""THENPRINT" YOU HAVE NOTHIN 
G TO MELT IT WITH! ": RETURN 

8925 IFWI=1THENRETURN 

S938 PRINT"THE ICE SLOWLY MELTS AND THE 
WIZARD BECOMES FREE." 

8949 WI=1:RETURN 

9994 REM *¥* ROOM DESCRIPTION ¥xX* 

9G1G PRINT"{CYN} YOU ARE IN THE ENTRANCE 
HALL OF THE” 

9920 PRINT"CASTLE. ALL AROUND YOU ARE OR 
IGINAL PAINTINGS BY PICASSO AND" 
9939 PRINT"VAN GOGH. THE CEILING IS FINE 
LY DECORATED. " 

9949 PRINT"ANTIQUE FURNITURE LINE THE WO 
ODEN WALLS." | 

9945 RETURN 

9950 PRINT"{CYN}COB WEBBS AND DUST FILTE 
R THROUGH THE" 

9969 PRINT"AIR. WHITE CLOTHS HANG LOOSEL 
Y OVER THE CHAIRS AND THE OLD GRAND PIAN 
Oo." | 
9978 PRINT"THE ARMOUR SUIT OF A DEAD KNI 
BHT STANDS STIFFLY IN ONE CORNER OF THE 


99369 PRINT"YOU CAN STILL FEEL HIS PRESEN 

Ce”: 

9998 RETURN 

9P19G PRINT" {CYN}YOQU ARE IN A DARK, SPOOK 

Y, CLOSET. MOTH EATEN CLOTHES STILL HANG 
IN HERE" 

91146 PRINT"THE SPIDERS OF THE CASTLE HAV 

E CERTAINLYFOUND A GOOD SPOT TO NEST." 

Pili2G PRINT"SMELLY SHOES AND A WET UMBREL 

LA STILL REMAIN IN THE CLOSET." 

91398 PRINT"OBVIOUSLY THE PROPERTY OF THE 
LAST PERSON WHO DARED TO ENTER THI 

Ss 
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91946 PRINT"CASTLE. THERE I5 A SKELETON I 
N THE CORNER.....”" 

9145 RETURN 

P1iSG PRINT"{CYNS THIS ROOM HAS A VARIETY 

OF DIFFERENT OBJECTS, BUT MOST OF THE 
M ARE" 

9166 PRINT"EITHER DAMAGED OR BROKEN, PIT 
Te 

91i7G@ PRINT"IN THE WALL IS AN AIR VENT, F 
EQM WHICH SEEMS TO TRAVEL ALL AROUND TH 


9189 PRINT"CASTLE. YOU CAN HEAR WHAT IS 
GOING ONE -IN ANY OTHER ROOM. A SCREAM H 
As" 

9198 PRINT"JUST ECHOED THROUGH THE ALUMI 
NIUM VENT. I SUGGEST WE GET OUT OF HERE. 


9195 RETURN 
9298 PRINT"{CYN}THIS ROOM WAS DEFINATELY 
A TORTURE ROOM.OLD RUSTY CHAINS DANGLE 

OM THE" 

9218 PRINT"BLOOD STAINED WALLS. A SKELET 
ON IS STILLHANGING IN CHAINS." 

9228 PRINT"A STRETCHING RACK IS PRESENT 
IN THE MIDDLE OF THE ROOM. DEAD SNAK 
ES" | 

9236 PRINT"LIE IN ONE CORNER OF THE ROOM 
, NEXT TO ABUNDLE GF BONES." 

9249 RETURN 

9259 PRINT"{CYN}THIS ROOM LOOKS AND SMEL 
LS LIKE A MORGUETHERE ARE DEAD BODIES EV 
ERYWHERE" 

9268 PRINT"I DON’T PLAN ON BEING ONE OF 
THESE DEAD BEATS. LETS GET OUT OF HERE, 
FAST" 

9278 RETURN 

7398 PRINT"{CYN3 THERE IS NOT MUCH TO THi 
S ROOM. THERE ARE MAINLY TINS OF FOUD 
ON" 

9318 PRINT"THE SHELVES SURROUNDING THE R 
oom." 

9326 PRINT"A LOT OF MICE ARE RUNNING ABU 
UT THE FLOOR. " 

9338 PRINT"QUCH! ONE JUST BIT ME." 
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$349 RETURN 

F350 PRINT"{CYNINO DGUBT ABOUT IT. THIS 
ROOM WAS MEANT TO KEEP FEOPLE FROM ESCAP 
ING, " 

9360 PRINT" THERE ARE SOLID STEEL BARS ON 
THE WINDOWS AND OOORS." 

P3768 PRINT" THERE ARE BROKEN CHAINS SCATT 
ERED ALL CVER THE FLOOR." 

Sach RETURN 

S40 PRINT" {CICYNS THIS ROOM IS CHOC-A-BLOC 
K FULL WITH CAMPING EQUIPMENT. " 

7418 PRINT"ALTHOUGH MOST GF IT IS COVERE 
D WITH SPIDER WEBS AND DUST, YGU CAN 


¥ 


426 PRINT"STILL MAKE GUT THE TENT, B.B. 
Q., SLEEFING BAGS ETC." 

P4309 RETURN 

94506 PRINT" {CYNF THIS IS A VERY LARGE ROS 
mM. ARQUND Yau ARE MANY BROKEN PIECES @O 
a 

S460 PRINT"FURNITURE. A LARGE CANLDE LIG 
HT FITTING HANGS FROM THE FINELY CARVED 
ROOF” 

2476 PRINT"A FEW DUSTY, BUT COLOURFUL FA 
INTINGS ARESUSPENDED ON THE WALLS." 

S439 PRINT"THIS ROOM IS A PART OF A LONG 
HALLWAY." 

P4990 RETURN 

F5BO0SG PRINT"CCYN3 THIS ROOM IS THE EASTERN 
MOST FART GF A LONG CORRIDOR. TO THE WE 
st LS" 

95318 PRINT"A VERY LONG HALLWAY. IT ALMOS 
T SEEMS NEVER ENDING. " 

S326 PRINT"ANTIQUE FURNITURE AND PAINTIN 
GS LINE THEWALLS." 

339 RETURN 

S358 FRINT"CCYNS THIS ROOM LOOKS LIKE AL 
ABORATORY. IN THE BACKGROUND IS A DARK 
FIGURE" 

95608 PRINT"SPILT LIQUIDS ARE DRIPPINGS OQ 


FF THE BENCHES. " 
2576 PRINT" IN FRONT QF YOU THERE IS A B 
OK ON VooDoo Tsnm.” 


S89 RETURN 
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9699 PRINT"{CYN3YOU ARE IN WHAT SEEMS To 
BE A GREEN HOUSE. " 

9619 PRINT" TO YOUR RIGHT THERE 15 A VER 

Y WIDE AND DEEP PIT. ON THE OTHER SIDE Y 
ou” 

9629 PRINT"CAN SEE AN CPEN DOCR, BUT YCU 
AREN’ T ABLE TO *CROSS’ THE FIT.” 
9639 IFCS(2)=""THENS649 

9635 PRINT"THE ROPE THAT YOU PICKED UP E 
ARLIER HAS STRETCHED ITSELF ACROSS THE P 
a 

9636 PRINT"MOW ALLGWING YOU TO CROSS THE 
PIT AND ENTER THROUGH THE OPEN DOOR OG 
Ne 

9637 PRINT"THE OTHER SIDE. ({WHT}GOOD LU 
CK" 

9649 RETURN 

9659 PRINT"{CYN}TGO YOUR LEFT IS A WIDE A 


ND VERY, VERY DEEP PIT. YOU CAN SEE YO 
UR ROPE" 


7669 PRINT" STRETCHED ACROSS IT." 
9679 PRINT"YOU ARE IN THE WESTERN ROCH O 
F THE CELLAR." 


°68@ RETURN 
766 PRINT"YOU ARE NOW IN THE CENTRAL RS 


OM GF THE CELLARS. THERE ARE BOTTLES AWN 
D" 

F716 PRINT"CASKETS EVERY WHERE..." 

97296 RETURN 

97508 PRINT"THIS ROOM HAS A GLASS WALL ON 
IT’S WEST SIDE. THROUGH THE GLASS YOU C 
AN” 

76698 PRINT"SEE A VERY DEEP PIT WITH A RO 
PE ACROSS IT." 

9778 IFCS(S)<>""THENPRINT" YOU CAN SEE A 
WITCH DOCTOR FREEZING THE WIZARD IN ICE. 


7388 RETURN 

93899 PRINT"{CYN YOU ARE WOW IN THE SOUTH 
ERN ROOM OF THE CELLARS. THIS IS WHERE A 
LE THE” 

93190 PRINT"BROKEN BOTTLES WERE KEFT. ”" 
9820 RETURN 
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7350 PRINT"{CYN} YOU ARE NOW IN THE EASTE 
RN ROCM OF THE CELLARS." 

7869 PRINT"IN THE AIR YOU CAN SMELL A BE 
AUTIFUL SCENT." 

SS7G RETURN 

996 PRINT"{CYN} THIS ROOM IS VERY BEAUTI 


FUL, AS IS ITS CONTENTS. THERE ARE WOND 
ERFULLY" 


P91IG PRINT"SOFT SILK CURTAINS ON THE WIN 
DOWS, A VERY SHINY BRASS BED" 

926 IFKI=S8THENPRINT"ON WHICH LIES A VER 
Y FRETTY PRINCESS. " 

9930 IFKI=1THENPRINT"THERE IS A BEAUTIFU 
L BLONDE PRINCESS IN SILK STANDING IN" 
9949 ITFKI=1THENPRINT"THE MIDDLE OF THE R 
oom. " 

9945 RETURN 

P9SOG PRINT" {CYNS YOU ARE IN THE NORTHERN 
ROOM OF THE CELLARS. BIG CASKETS OF 
RUM" 

2968 PRINT"ARE STACKED ONE ON TOP OF EAC 
H OTHER." 

9976 RETURN 

1GO90G60 PRINT"{CYNSTHIS ROOM I5 OBVIOUSLY 
THE ARMOURY ROOM.GUN MUSKETS, SWORDS, AWN 
DA LOT" 

1GG@iG PRINT"OF OTHER WEAPONS HANG ON THE 
WALLS. IN ONE CORNER THERE IS A SOLID 
GOLD" 

19929 FPRINT"CANNON FROM THE SHIP ’EMPORE 

Rm ir** 

19838 RETURN 

196590 PRINT" {CYN3TO YOUR RIGHT IS AN OFE 

N FIRE PLACE. SETAROUND THE FIRE PLACE A 

RE" 

1969696 PRINT" THREE CHAIRS. UNDER THE CHAT 

RS IS A LARGE SHEEP SKIN RUG." 

196976 PRINT"I FIND THIS ROOM VERY COSY." 
199890 RETURN . 

19196 PRINT"{CYN3THIS IS JUST ONE OF THE 
KING’S TREASURY ROOPMS. " 

1911906 PRINT" SOMETHING FISHY SEEMS TO BE 
GOING OW HERE. THIS ROOM HAS RECENTLY 
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19129 PRINT"BEEH DISTURBED. I CAN SEE TH 
E TRACES SF A WITCH DOCTOR....”" 

1Gise RETURN 

1915G PRINT"{CYN}THIS IS A VERY WARM RUG 


mM. THIS ROOM WOULD’ VE SUPPL 

IED" 

19168 PRINT" THE THERMOSTAT FOR THE REST 
GF THE CASTLE.” 


1G1i1?7?G RETURN 
192660 PRINT"{CYN3TOQ YOUR WEST YOU CAN SE 


E A CORRIDOR WHICH SEEMS NEVER ENDIN 
G." 

19219 PRINT"TO YOUR LEFT IS ANOTHER VERY 
LONG CORRIDOR." 


192290 RETURN 

192590 PRINT" CCYNJALL AROUND YOU 15 GOLD, 
LOTS OF IT. JUSTREMEMBER THAT I CAN’T C 
ARRY ALL” 

162650 PRINT"THAT MUCH!” 

1962760 RETURN 

1963908 PRINT"{CYN3 YOU ARE NOW lit THE CENT 
RAL ROOM OF THE LONG CORRIDOR." 

19219 RETURN 

19358 FRINT"(CYN3; TQ YOUR RIGHT I5 A VERY 
LONG CORRIDOR. TO THE SOUTH THERE IS @ 
UITE A" 

16368 PRINT"LONG HALLWAY..." 

193706 RETURN 

16496 PRINT"{CYNI THIS ROOM SEEMS A LITTL 
E DAMP. " 

196419 RETURN 

19450 PRINT" {CYNSTHIS ROOM ABSOLUTELY ST 
INKS.” 

19466 IFZ0=1THENPRINT" THERE IS A FUDDLE 

OF BLOGD ON THE FLOOR.” 

19479 RETURN 

195998 PRINT"{ICYNS THIS ROOM LOOKS LIKE MA 


GIC WAS ONCE PERFORMED HERE. " 
16519 IFWI=1THENPRINT"THERE IS A PUDDLE 
OF WATER ON THE CONCRETE FLOOR." 


1935265 IFWI=9THENPRINT"THERE IS A TALL TH 


IN BLOCK OF ICE. IN THE BLOCK OF ICE Y 
ou" 
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19530 IFWI=@THENPRINT"CAN SEE THE BLURRE 

D OUTLINE CF A PERSON.” 

1954@ RETURN 

19550 PRINT"{CYNITHIS PLACE LOCKS LIKE A 
GRAVE YARD.” 

1G@56@ RETURN 

{6690 PRINT"{(CYN3 THERE 15 AN OLD MODEL 

T? FORD IN THIS SMELLY ROOM, ALONG WITH 
GLD" 

19618 PRINT"MOTOR CAR PARTS.” 

1G62@G RETURN 

19650 PRINT"’{CYNSTHERE IS A THICK MIST I 

N THIS EaOM. YOU CAN’T EVEN SEE YGUR HAN 

D IN" 

196468 PRINT"FRONT OF YoU.” 

19470 RETURN 

1907@@ PRINT" (CYN} THERE ARE GARDEN TOGLS 

SCATTERED ALL OVER THE FLOOR. ONE OF 

THESE" 

196719 PRINT"GBIECTS MIGHT COME IN VERY H 

MBLs” Re: 

726 RETURN 

i975 PRINT"{CYN3TO YOUR NORTH IS A RATH 
ER LONG HALLWAY.” 

19768 RETURN 

19SGG PRINT" CCYN}ROOMS LEAD GFF IN EVERY 
DIRECTION FROM THIS ROGM. I HOPE YOU P 
ICK THE" 

1G@S1@ PRINT"RIGHT ONE." 

19826 RETURN 

198598 PRINT*{CYN3THIS ROOM 1S IN THE SHA 

PE GF A CIRCLE. I FEEL A LITTLE DIZZY." 
19869 RETURN 

1999@ PRINT"ICYN3THIS ROOM 1S SHAPED LIK 

E A TRIANGLE. I CAN’T MAKE GUT THE DOOR 
1@91@ RETURN 

19959 PRINT"{CYN3THERE ARE HUNDREDS OF ft 
IRRORS ALONG THE WALLS. I CAN’T MAKE OUT 
WHICH" | 
1996@ PRINT" IMAGE IS YOU AND WHICH IMAGE 
Is ME” 

19978 RETURN 

119@@ PRINT"{CYN}NORTH, SOUTH, EAST GOR W 
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EST, TAKE YOUR FICK!" 
11919 RETURN 

11959 PRINT"<CYN?2 WOULD LIKE TO CONGRAT 

NLATE YOU aN GETTING THIS FAR INTO T 
HE ” 

119608 PRINT"ADVENTURE. I WOULDN’T GO MAK 
ING ANY RASHMOVES NOW, IF I WAS YOU." 
11976 RETURN 

11196 PRINT"{CYN}THE FLGOR 1S COMPLETELY 
COVERED WITH TILES." 

11119 RETURN 

11159 PRINT"(CYN}YGU CAN HEAR A FUNNY MG 
ANING NOISE. IT SEEMS TO BE COMING FROM 
THE” 

114169 PRINT"WEST!” 

11178 RETURN 

11268 PRINT"THERE ARE BEAUTIFULLY DECORA 

TED TILES UNDER YOUR FEET. JUST HOPE T 
HAT" 

11219 FRINT"THERE ISN’T A TRAP DOOR ANYW 

HERE!" 

11229 RETURN 

11259 PRINT"NICE GOING, I WOULD BE VERY 

CAREFUL ABOUT YOUR NEXT MOVE." 

11269 RETURN 

11399 PRINT"{CYN3A DOOR JUST SLAMMED SHU 


JT SOMEWHERE IN THE CASTLE.” 
1131@ PRINT"AS YOUR EYES RULL TO THE ROO 


F YOU CAN SEE A DEAD BODY HANGING." 
11326 PRINT’A DROP OF BLOOD HITS YOU GN 
THE FACE. QBVIOQUSLY THIS HAS HAPPENED" 
113396 PRINT"RECENTLY. " 

113496 RETURN 

11356 PRINT"{CYN3YGU PULL BACK THE CURTA 
INS IN YOUR BEDROOM. YOU CAN SEE TH 
E SUN" 

113660 PRINT"IS SHINING BRILLIANTLY. YOU 
REALISE NOWTHAT IT WAS ALL A DREAM. ” 
11376 PRINT" BUT AS YOU EXIT YOUR BEDROOM 
» fou FIND" 

1138G FORA=1TO1999: NEXT: PRINT" {WHT3A VOOD 
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113990 PRINT"{YEL31I WOULDN’T GO TO 
NIGHT IF I WAS YOU. eae” 
11499 END 


READY. 
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BED TO 


SPRITE CREATION 


This program is a very handy tool when you're writing 
games, as it will help you to define sprites very 
easily. Here's what you have to do: 

1 -— Use the cursor keys to define your sprite 

2 — Use the function keys for sketching and rubout 

3 — After you've created your sprite, you'll be able 

to view it and enlarge it 
4 - You can also view the sprite in multi-colors 
9 — Next, you'll be given the data for the sprite. 


You can either copy it down by hand, or have the 
computer dump it to the printer. 


Note that with this program you can define multi-colored 
sprites, if you wish to. 


1 PRINT"{CLR>" 

2 DIMG(22) ,~W(22) ,E (22) 

& PRINT" {HOME F¥LKXLKLSHVSKSKLKELSKLSKNYKLKLYKS" | 
FORA=1TO29: PRINT "#2¥2KX2K2HXLKLELKSKLKLELSE 
2°" > NEXT 

19 PRINT" {CHGME3" :SC=19249: A=9: B=G: CL=5529 
6 


11 PRINT" iCUR 


+{CUR 
s{CUR 


+{( CUR 
+{CUR 


7{TCUR 


{CUR RT3C{CUR RT3{CUR RT3{CUR 


RT3<CUR 
RT3{CUR 
RT3€CUR 
RT3{CUR 


DNS {CUR 
RT3{CUR 
RT? (CUR 
RT3{(CUR 
RT?{CUR 


RT?{CUR 
RT3(CUR 
RT?{ CUR 
RT (CUR 
RT3{ CUR 


RT }@@CCCECECEECECCECEG" 
12 PRINTSPC(24) "@SPRITE CREATERG" 
13 PRINT"{CUR RTFCCUR RTF CCUR 
{CUR RTZCCUR RTF{CUR RT}{CUR 
{CUR RT}{CUR RT}{CUR RT}{CUR 
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RTI (CUR 
RT?( CUR 
RT3{CUR 
RT( CUR 
RTs{CuR 


RT?{CUR 
RT} <CUR 


RT}<{CUR 
RT3?<CUR 


RT 
eT 
RT 
RT 
RT 


RT 
RT 
RT 
RT 


CUR RTS{(CUR RTIICUR RTs RT 
CECCECECEEEECCECECE" 


me {CUR RTF{ CUR 
aC 

4 PRINTSPC (2494) "’@Q? 

= 

re 


TO RE-RUN...”" 
PRINTSPC (24) "’FS”7 TO RUBOUT.." 
FRINTSPC (24) "’F?’ TO SKETCH..” 
PRINTSPC(24)""*RETURN’? DATA.." 


28 GETAS 

268 TFAS="Q" THENGOTO1IS 

49 IFAS="{CUR UP}”" THENB=B-1 
38 IFAS="{CUR DN}3"THENB=Btil 
69 IFAS="{CUR Li" THENA=A-1 
708 TFAS="{CUR RT3" THENA=At1 
80 TFAS=CHRS (13) THENZEDSG 

Sl IFAS=""THENZ=1 

S2 IFAS="THENZ=6 

83 IFZ=STHENSS 


SS ITFA=10RA=S30ORA=S0ORA=7ORA=f0RA=110RA=-13 
CRA=1S50RA=1 70RA=190RA=2 10RA=230RA=25THEN 
Z=2 

26 IFB<OTHENB=9 


196 IFBS26THENB=29 
116 IFAC GTHENA=6G 


1290 IFA+23THENAH=23 

136 TF2Z=GTHENPOKESCt+At49OX#B, 32: FORT=1TO396 
"NEXT: POKESC+A+49%B, 166: POKECLtAt+4OXB, 1 
131 IFZ=1THENPOKESC+A+4OXB, 164: POKECLt+At 
46%B,14:FORT=1TO39: NEXT: POKESCt+At4S9XB, 42 
132 ITFZ=2THENPOKESC+t+At+4OXB, 169: POKECLt+A+ 
4G%*B,14:FORT=1TO396: NEXT: POKESCtAt+495XB, 59 


133 IFZ=2THENZ=1 
146 GOTO2Ss 


25b5S 
zBGig 
2825 
2G21 
2038 
2931 
2032 
va she) 
21 GD 


2119 
2126 


2121 


REM HHHKHKKE 

REM XDECODEX 

REM HHH 

PRINT" {HOME} "SPC (27) "STAGER 1" 
FORT=1TO21 


IFT=1THEN299S 
SC=5C+49 


FORR=9TO?/ 


IFPEER (SC+t+R) =169THENGOSUBSSOS 


MEAT 
NEXT 


PRINT" {HOME} "SPC (27) "STAGE# 2" 
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QQ Qa 


JO CA WwW 


Wh) FQ YO OO 


es aa 


v 


NS W @NN NPN NN NN OR BPR PRB eB Re 


co fa OD YVAKA OW BS 


No No NN NN NNN NNW NN OW NN OND 


SC=1932 
FORT=17T621: IFT=1THEN2169 

SC=SC +49 

FORR=8TO? 

IFPEEK (SC+R) =169THENGOUSUBS6E GS 
NEXT 

NEXT 

FRINT" (HOME3}"SPC(27) "FINAL STAGE” 
SC=1946 

FORT=1TO21: IFT=1THENZ2 238 

SC=SC+4g 
FORR=9TO? 
IFPEEK (SC+R) 
NEXT 

NEXT 
GoTOZ341 
PRINT" (CLRIC@C@CCRE 
FeCEECECEGECE” 
PRINT "G@C@CCCCCECECEE 


=1469THENCGCSUBYLS UU 


FEECESCCCECEECCCECE 


2 


CECECDATACECCCEE 


EFeECEEECE" 
ra 


PRINT "C@@CCECCCCECEECCCECEECOEGEPEETEES 


@@CCCECEEGE" 


2298 


DATA TO THE 


R OR 
2274 
25098 
2310 


hd) 


KIT hy) 
JN WA WW 


AJN) 
t 

an 
AN 


Ww WN 
© =h) & 


G 


2341 


PRINT? PRINT"DO YOU WANT TO SEND THE 
{RVS ONSPCRVS OFFSRINTE 
CRVS ONGWiRVS OFFSRITE IT DOWN. ” 
INFUTAS: IFAS="P" THENGPENS, 4: CMD4 
FRINT"ICCLRI" SFORT=1TOQ21 
FRINT"’DATA"G@(TI","WIT)", 
NEXT | 
LTFAS="P" THENPRINT#SO: CLOSES PRINT" CC 


"E CT) 


PRINT" €HOME3HIT RETURN TG CONTINUE” 
GETAS: [FASS >CHR$ (13) THENZ339 
GOTOG235 


PRINT "{CLRIWOULD YOU LIKE TO VIEW *¥ 


QUR SPRITE" 


2342 
2343 
23ag 


INFUTAS: LFAS="Y" THENSSAS 
GOTO2276 
PRINT" {CLRSWOULD YOU LIKE TO CREATE 


ANGQTHER SFRITE" 


2351 
2366 
25602 
2366 


FORN=9TO062: POKESSZ+N, 9:NEXT: N= 
INPUTAS: IFAS="Y¥" THENCLR: RUN 
IFAS="N" THEN2S37S 


GOTO19 
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2370 PRINT"ZCLRIYOU HAVE BEEN USING THE 

"SPRITE CREATER’ ":END 

399G V=353248:POKEVt21,4°5POKE29492,13 

3962 D=S32:POKEV+t23,0:POKEV+t29,6:POKEVtS 
“7,1: POKEVt33, 1: POGKEVt25,9 

3692 POKEVt4, 260: POKEVtS, 299d 

369054 POKEV+t+46, 1 

36ig FORTT=iToel 

39026 FOKED, Q(TT) :FOQKEDt+1,W(TT) >POKEDt2,E 
(TT) © D=D+S2 NEXT 

39358 PRINT"{CLRIDO YOU WANT YOUR SPRITE 

ENLARGED" 

S631 INPUTAS: IFAS="Y" THENPOKEV+23,4: POKE 
Vt29,4 | 

~O852 PRINT"{CLR31IS YOUR SPRITE MULTI-COL 
OQURED. " 

3953 INPUTAS: IFAS="Y" THENGOSUBSS9S 

3635 PRINT" CCLR3" 

S9S9F FORX=GTO2GO: POKEVt+4, X: POKEV+tS, X:NEX 
T 

3869 PRINT"{CLRIHIT *RETURN’ TO CONTINUE 
3876 GETAS: IFAS< >CHRS (13) THENSS7S 

3936 GOTO2279 | 

IOOGG IFR=OTHENG(T) =Q(T) +128 

SO1G IFR=iTHENQ(T) =Q(T) +464 

3628 IFR=2THENQ(T) =Q(T) +32 

59390 IFR=3STHEN@(T)=@(T) +16 

99490 IFR=STHENQ(T)=Q(T) +3 

595¢@ IFR=STHENG(T) =Q(T) +4 

3868 IFR=6THENQGQ(T)=Q(T) +2 

58976 IFR=7THENQ(T)=Q(T) +1 

29889 RETURN 

69908 IFR=SGTHENW(T)=HW(T) +126 

6916 IFR=1THENW(T)=W(T) +64 

6926 ITFR=2THENW(T) =W(T) +32 

6939 IFR=3THENW(T)=W(T) +16 

6996 IFR=4THENW(T) =W(T) +3. 


e828 TFR=STHENW (T)=W(T) +4 
© IFR=6THENW(T) =W(T) +2 


6976 IFR=7THENW(T)=W(T) +1 
6930 RETURN 


YOGOG IFR=-GTHENE(T) =E(T) +128 
7OAG IFR=1THENE(T) =E(T) +64 
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2GLD8 
7836 
/B4AG 
7BGIG 
7 B68 
78B7DB 
7888 
SHOE 


Sh94 
SH16 


IFR=2THENE (T) =E(T) +32 

IFR=S3THENE (T)=E(T) +16 
IFR=4THENE(T)=E(1T) +8 
IFR=STHENE (T) =E(T) +4 
IFR=6THENE(T)=E(T) +2 
IFR=7THENE(T)=E(T) +1 

RETURN 

REM ***% MULTI-COLOURED ¥** 
POKEV+41,1 

PRINT"{CLRIWHAT COLOUR IS MULTI-CQOL 


OUR i” 


SB2H 


Sd3G 
e935 


SO4¢G 
S85 
OUR 

39466 


SI7D 
SI75 


SH38 
SI9P 


S199 
3116 


S115 
3120 


3139 


PRINTZ:FRINT"NUMBER PLEASE (17T015)" 
PRINT: INPUT"COLOR"3C 
IFC<10RC>15THENSS29 
POKEV+28,4:POKEV+37,C-1 
PRINT"{CLR}WHAT COLOUR IS MULTI-CGOL 


Pea 


PRINTS PRINT"NUMBER PLEASE (1TO15)”" 
PRINT: INPUT"COLOR";C 
IFC<LORCSISTHENSSS6h9 


POKEV+t+38,C-l 
PRINT" {CLRIWHAT COLGUR IS SPRITE" 


PRINT:IPRINT"NUMBER PLEASE (1TO15)" 
PRINT: INPUT"COLOR";C 
IFC<1GRC?}15THENS19@ 

POKEV+41,C-1 

PRINT"{CLRIARE YOU SATISFIED WITH T 


HE COLOURS" 


8149 


Sisg 
S169 


INPUTAS 
IFAS="Y" THENRETURN 
GOTOSG1¢ 


READY. 
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Add these fantastic games to your Commodore 
64 Library! Over 30 new games included in this 
one volume. Why not try: 


r=) f=18 010) (= 940018 

Big Blue Elephants 
Disaster Flight 

Reflex Bowling Alley 
Squisher and Squasher : 
Telepathy Tester 


yt th ot oe 
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